program raf105;
var a,b,s,p:integer;
begin
write('Введите длину и ширину участка через пробел: ');
readln(a,b);
s:= a*b;
p:= (a+b)*2;
writeln('Площадь участка: ',s,' м²');
writeln('Длина забора: ',p,' м');
end.
Программа написана на языке PascalABC.NET
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program raf105;
var a,b,s,p:integer;
begin
write('Введите длину и ширину участка через пробел: ');
readln(a,b);
s:= a*b;
p:= (a+b)*2;
writeln('Площадь участка: ',s,' м²');
writeln('Длина забора: ',p,' м');
end.
Программа написана на языке PascalABC.NET