Question

Пожалуйста напишите программу на языке Паскаль.
Программа принимает три числа: возраст Антона, возраст Бориса и возраст Виктора. Определите, кто из них старше остальных.
Входные данные
Входная строка содержит три натуральных числа: возраст Антона, возраст Бориса и возраст Виктора.
Выходные данные
Выходная строка должна содержать латинскую букву – код того человека, который старше всех. Код Антона – 'A', код Бориса – 'B', код Виктора – 'C'. Если двое старше третьего, нужно вывести два кода через пробел (в алфавитном порядке). Например, если Антон и Виктор старше Бориса, программа должна вывести 'A C'. Если все трое одного возраста, программа должна вывести число 0.

Answer 1

Ответ:

var  

a, b, c:integer;

begin

readln(a);

a:=19;

b:=19;

c:=18;

if (a>b) and (a>c) then write('А. Антон старше всех');

if (b>a) and (b>c) then write('B. Борис старше всех');

if (c>a) and (c>b) then write('C. Виктор старше всех');

if (a>c) and (b>c) and (a=b) then write('A B. Антон и Борис старше Виктора');

if (b>a) and (c>a) and (b=c) then write('B С. Борис и Виктор старше Антона');

if (a=b) and (b=c) and (a=c) then write('0. Они являются ровесниками');

end.

Объяснение: