Решить задачу в паскале авс ..."даны 3 любых числа, вывести на экран максимальное". через оператор "if

Question

Решить задачу в паскале авс ..."даны 3 любых числа, вывести на экран максимальное". через оператор "if

Экономика

Гость

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

Accepted Answer

var a,b,c: integer; begin writeln('введите три числа'); readln(a,b,c); if (a>b) and (a>c) then writeln('больше число ==> ',a); if (b>a) and (b>c) then writeln('больше число ==> ',b); if (c>b) and (c>a) then writeln('больше число ==> ',c); end.