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

Question

Информатика

Эфра

20 мая, 22:00

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

+4

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