Нужно написать программу на языке Паскаль! Задание: известен периметр прямоугольника и одна сторона из его сторон. Найти площадь прямоугольника?

Question

Информатика

Никуля

8 мая, 23:56

Нужно написать программу на языке Паскаль! Задание: известен периметр прямоугольника и одна сторона из его сторон. Найти площадь прямоугольника?

+3

Ответы (1)

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

Нинюра · Answer 1

var S, p, a, b: real;

begin

writeln ('Введите периметр прямоугольника') ;

readln (p) ;

writeln ('Введите одну из сторон прямоугольника') ;

readln (a) ;

b: = (p-2*a) / 2;

s:=a*b;

writeln ('Площадь прямоугольника равна ', s) ;

end.