Ответы на вопрос:
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.
Объяснение:
Популярно: Информатика
-
lizabatyshkina15.03.2023 00:00
-
dlink16201.04.2021 20:53
-
vikakivi120617.01.2021 17:39
-
ппмв08.04.2023 17:15
-
nafasomf18814.05.2023 18:59
-
Nshok126.01.2021 12:02
-
Hydini20.11.2020 08:42
-
раопп28.07.2022 14:27
-
gerad3434318.01.2023 15:03
-
MoonyGirl0431.01.2022 20:50