20.2 напишите программу, которая в последовательности натуральных чисел определяет максимальное из четных чисел, содержащих на втором месте справа цифру 7. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести максимальное из четных чисел, содержащих на втором месте справа цифру 7 пример работы программы: входные данные выходные данные 1074 2473 1586 2272 76 0 2272
Grundyy
1
27.08.2019 13:00
0
Другие вопросы по теме Информатика
komissssarov
12.05.2020 10:54
grbennikovigor
12.05.2020 10:54
Лида147
12.05.2020 10:53
17bazilik17
20.10.2019 08:37
555Mari555
20.10.2019 09:04
Каке11
13.04.2020 12:55
Adel3004
13.04.2020 12:55
alinakat98
13.04.2020 12:54
LadyWolf123456789
01.02.2021 21:02
Популярные вопросы
- Написати твір Чому я люблю дивитись аніме а не щось інше? (5 речень мінімум)...
2 - Writing Task 5. Choose one of the topics below and write your opinion. Topic 1....
3 - Доступ до елементів масиву здійснити двома : - за іменем масиву, індексом рядка...
2 - , БУДЬ ЛАСКА На столі стоять 15 тарілок із полуницею. На першій тарілці лежить одна...
3 - Дайте відповідь на питання: 1. Назвіть осередки української еміграції напередодні...
3 - Найти область определения функции у =√х...
3 - Установіть відповідність між портретом і персонажем у творі. «Обличчя в нього сіре...
2 - Струму(рис. 8). Потім, зосередивши увагу на стрілці приладу, швидко перемкніть конденсатор...
2 - какой процессор лучше всего подойдёт к 4070 ti. процессор должен быть ryzen 7000...
3 - Як треба підкреслити Кожен вітер по -своєму дме...
1
a, mx = 1, -1
while a!=0:
a = int(input())
if (a%2==0) and (a//10%10==7) and (a>mx): mx=a;
print (mx)
//FPC 2.6.4
var
a, max: integer;
begin
max:=-1;
repeat
readln (a);
if (a mod 2=0) and (a div 10 mod 10=7) and (a>max) then max:=a;
until a=0;
write (max);
end.