Question

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

Answer 1

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

Answer 2

смысле?

Answer 3

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

Answer 4

блин

Answer 5

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

Answer 6

созздал