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

Question

Информатика

Стелла

15 апреля, 16:36

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

+5

Ответы (2)

Знаете ответ?

Евлампий · Answer 1

Евлампий 15 апреля, 19:24

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;"