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

Ответы
Автор ответа:
2
Ответ:
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.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: plshk
Предмет: Русский язык,
автор: James2014
Предмет: Русский язык,
автор: plshk
Предмет: Математика,
автор: Алина0022
Предмет: Алгебра,
автор: Анастасия193