Паскаль авс дан прямоугольник надо найти полупериметр

Anechka6665 Anechka6665    1   19.03.2019 00:40    5

Ответы
Kiss456 Kiss456  26.05.2020 01:56

var a,b:real;

begin

readln(a,b);

writeln('p=',a+b);

end.

ПОКАЗАТЬ ОТВЕТЫ
babkaaalina babkaaalina  26.05.2020 01:56

program poluperimetr;
var a,b,p:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
p:=a+b;
writeln('Полупериметр прямоугольника = ' ,p);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика