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

Question

Информатика

Герасим

1 сентября, 23:24

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

+2

Ответы (1)

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

Нюня · Answer 1

Program pr1; var n, p1, p2:real; beginwriteln ('Введите периметр 1-ого и 2-ого треугольника') ; readln (p1) ; readln (p2) ; if p1>p2then n:=p1-p2else n:=p2-p1; writeln ('Один треугольник больше другого на ', n) ; readln; end.