Помогите решить задачу по ИВТ на языке паскаль. Задано 3 числа найти наибольшее из них.

Question

Помогите решить задачу по ИВТ на языке паскаль. Задано 3 числа найти наибольшее из них.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a1, a2, a3, max: integer; begin write ('Введите три числа: '); readln (a1, a2, a3); if a1 >= a2 then max := a1 else max := a2; if a3 > max then max := a3; writeln ('Наибольшее из них: ', max); readln end.