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

Question

Информатика

Кириана

15 октября, 23:08

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

+5

Ответы (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.