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

Question

Информатика

Нифонт

2 января, 19:24

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

+5

Ответы (2)

Знаете ответ на вопрос?

Викта · Answer 1

var a, b:real;

begin

readln (a, b) ;

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

end.

Кириана · Answer 2

program poluperimetr;

var a, b, p:real;

begin

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

readln (a) ;

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

readln (b) ;

p:=a+b;

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

end.