Задание:
Вывести на экран наибольший рост из трех учеников. Паскаль.
Решение:
program Zadacha1; var a,b,c: integer; begin writeln ("Введите рост первого ученика: "); read (a); writeln ("Введите рост второго ученика: "); read (b); writeln ("Введите рост третьего ученика: "); read (c); If (a>b) and (a>c) then writeln ("Наибольший рост у первого ученика! "); If (b>a) and (b>c) then writeln ("Наибольший рост у второго ученика! "); If (c>a) and (c>b) then writeln ("Наибольший рост у третьего ученика! "); end.
Знаете другой ответ?