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

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

Question

Информатика

Тима

11 сентября, 23:10

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

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

+1

Ответы (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 числа найти наибольшее из них.