Помогите составить задание на языке Паскаль:
Даны стороны прямоугольника: a и b.
Найти: P-периметр, S-площадь, с-диагональ.
Program Zn;
var a,b,S,P:integer;
c:real;
Begin
Writeln(Введите стороны а и b);
Readln(a);
Readln(b);
P:=2*a+2*b;
S:=a*b;
c:=sqrt(a*a+b*b);
writeln(P=,P);
Writeln(S=,S);
Writeln(c=,c);
end.
(Проверено и откомпилировано на Pascal.NET)
Оцени ответ
