72

Напишите программу находящую максимальное из четырех чисел (используйте…

17 февраля 2023

Напишите программу находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел)

категория: информатика

55

Program ufhg; uses crt; var a,b,c,d, m: integer; begin readln (a,b,c,d); m: =a; if (b>m) then m: =b; if (c>m) then m: =c; if (d>m) then m: =d; writeln (m); end.

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

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...