С клавиатуры вводятся длины сторон прямоугольника. Найти его периметр и площадь.
Answers & Comments
Relhem
Program by_Relhem; var a,b,S,P:integer; begin writeln ('Введите длины сторон прямоугольника, разделяя их пробелом.'); read (a,b); S:=a*b; P:=(a+b)*2; writeln ('Площадь: ',S); writeln ('Периметр: ',P); end.
Answers & Comments
var
a,b,S,P:integer;
begin
writeln ('Введите длины сторон прямоугольника, разделяя их пробелом.');
read (a,b);
S:=a*b;
P:=(a+b)*2;
writeln ('Площадь: ',S);
writeln ('Периметр: ',P);
end.