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

Задано 3 числа найти наибольшее из них.

Question

Информатика

Аггей

5 марта, 13:42

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

Задано 3 числа найти наибольшее из них.

+2

Ответы (1)

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

Степа · Answer 1

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.

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

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

Задано 3 числа найти наибольшее из них.