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

Question

Информатика

Зарина

11 сентября, 07:05

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

+1

Ответы (2)

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

Корней · Answer 1

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

Эрнст · Answer 2

Эрнст 11 сентября, 11:05

0

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