Составте программу в турбо паскале для вычисления площади прямоугольника по введенной длине и введенному периметру.

Question

Информатика

Элисабеда

1 марта, 18:10

Составте программу в турбо паскале для вычисления площади прямоугольника по введенной длине и введенному периметру.

+1

Ответы (1)

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

Зостыслав · Answer 1

Uses crt;

var a, p:integer; b, s:real;

begin

writeln ('введите периметр', p) ;

readln (p) ;

writeln ('введите длину', a) ;

readln (a) ;

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

s:=a*b;

writeln (s) ;

End.