Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
11 декабря 2022 12:51
1027
Имеются данные о количестве полных лет трёх призёров спартакиады. Напишите программу выбирающую и выводящую возраст самого младшего призёра.
1
ответ
Var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
0
·
Хороший ответ
13 декабря 2022 12:51
Остались вопросы?
Еще вопросы по категории Информатика
ПОМОГИТЕ ПОЖАЛУЙСТА! ТЕСТ ПО ИНФОРМАТИКЕ-ФАЙЛЫ! 1-Выберите правильное имя файла 3:LIST.EXE IN3:.TXT в345.BMP SPRAVKI 2- Путь к файлу.............
1. В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета: Запрос Количеств...
Мне нужно ответить на вопросы ! Только вопросы!!!! Вопросы: 1)Как можно получить случайное число из интервала (0, x)? 2)Как можно получить случайн...
Что собой представляет компьютерная графика...
Сколько мегабайт информации содержит сообщение объемом 2^23 степени бит? Объясните, пожалуйста, как решать такие задачи?...