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

0 голосов
74 просмотров

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


Информатика (14 баллов) | 74 просмотров
Дан 1 ответ
0 голосов

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.

(134 баллов)
0

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