Ответы
Ответ дал:
0
var a,b,p: integer;
begin
write('Длинна: '); readln(a);
write('Ширина: '); readln(b);
p:=2*a+2*b;
write('Периметр равен: ',p);
end.
begin
write('Длинна: '); readln(a);
write('Ширина: '); readln(b);
p:=2*a+2*b;
write('Периметр равен: ',p);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад