Паскаль авс дан прямоугольник надо найти полупериметр
Паскаль авс дан прямоугольник надо найти полупериметр
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:real; begin readln(a,b); writeln('p=',a+b); end.
Гостьprogram poluperimetr;
var a,b,p:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
p:=a+b;
writeln('Полупериметр прямоугольника = ' ,p);
end.
Не нашли ответ?
Похожие вопросы