Написать программу вычисления периметр четырехугольника

Question

Информатика

Меланьюшка

16 мая, 21:07

Написать программу вычисления периметр четырехугольника

+3

Ответы (1)

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

Сашуха · Answer 1

Program perimetr;

var p, a, b, c, d:real;

begin

write ('ведите значение стороны A') ;

readln (a) ;

write ('Введите значение стороны B') ;

readln (b) ;

write ('Введите значение стороны C') ;

readln (c) ;

write ('Введите значение стороны D') ;

readln (d) ;

p:=a+b+c+d;

write ('P=', p:6:2) ;

end.