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

Question

Информатика

Меланьюшка

29 июля, 22:49

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

+4

Ответы (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.