20.2 Напишите программку, которая в последовательности естественных чисел определяет
20.2 Напишите программку, которая в последовательности естественных чисел определяет наибольшее из четных чисел, содержащих на втором месте справа цифру 7. Программка получает на вход естественные числа, количество введённых чисел безызвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не заходит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превосходят 30 000.
Программка должна вывести максимальное из четных чисел, содержащих на втором месте справа цифру 7
Пример работы программки:
Входные данные Выходные данные
1074
2473
1586
2272
76
0 2272
a, mx = 1, -1
while a!=0:
a = int(input())
if (a%2==0) and (a//10%10==7) and (agt;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 (agt;max) then max:=a;
until a=0;
write (max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.