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

Question

Информатика

Нала

10 февраля, 12:33

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

+3

Ответы (2)

Знаете ответ?

Эгина · Answer 1

program poluperimetr;

var a, b, p:real;

begin

writeln ('Введите a') ;

readln (a) ;

writeln ('Введите b') ;

readln (b) ;

p:=a+b;

writeln ('Полупериметр прямоугольника = ', p) ;

end.

Нила · Answer 2

var a, b:real;

begin

readln (a, b) ;

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

end.