Ответ учителя по предмету Информатика
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.
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.
Похожие вопросы от пользователей
В коробке осталось в 3 раза меньше бубликов,чем было вначале. Сколько было бубликов,если остался 51.
Преобразуйте задачу,сохранив числа ,но изменив тематику.
ПОМОГИТЕ ПОЖАЛУЙСТА