дана сторона прямоугольника найти его площадь и периметр если 2 строна на 30% меньше 1
7 класс паскаль срочно

смысле?

может быть 2 ответа, они уже есть

блин

щас создам новый вопрос

созздал

  Program pr1;Uses Crt;Varx1,x2,s,p:real;BeginClrScr;write('Известная сторона прямоугольника:');readln(x1);x2:=0.7*x1;s:=x1*x2;p:=2*(x1+x2);writeln('S=',s);write('P=', p);readln;end.