Pascal:периметр прямоугольника P дм. Одна из сторон длиной A см. Найти площадь прямоугольника

Question

Информатика

Зарина

15 августа, 10:31

Pascal:периметр прямоугольника P дм. Одна из сторон длиной A см. Найти площадь прямоугольника

+2

Ответы (2)

Знаете ответ на вопрос?

Эрнст · Answer 1

Эрнст 15 августа, 11:52

0

Р дм = ? см? см - А см = ? см

Корней · Answer 2

Var a, b, p, s:real;

begin;

write ('Введите сторону: ') ;

readln (a) ;

write ('Введите периметр: ') ;

readln (p) ;

p:=p*10;

b: = (p/2) - a;

s:=a*b;

write ('Вторая сторона равна ', b,', площадь равна ', s)

end.

Если периметр в сантиметрах, убери строку "p:=p*10;"