Question

напишите программу которая по заданным сторонам прямоугольника вычисляет его периметр и площадь (Паскаль)​

Answer 1

Procedure......

Var a, b, p, s: real;

Begin

edit1.text:= strtofloat(a);

edit2.text:= strtofloat(b);

p:= (a+b) *2;

s:= a*b;

edit3.text:= floattostr(p);

edit4.text:= floattostr(s);

end;