Ответы
Ответ дал:
0
var p,a,b:integer;
begin
writeln ('Введите стороны прямоугольника a и b');
readln (a,b);
p:=(a+b)*2;
writeln ('Периметр прямоугольника равен ',p);
end.
begin
writeln ('Введите стороны прямоугольника a и b');
readln (a,b);
p:=(a+b)*2;
writeln ('Периметр прямоугольника равен ',p);
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад