Напишите программу, которая в последовательности натуральных - id35348822 от basik100grn 26.11.2020 12:19

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел находит наименьшее четное число. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа не превышают 30 000. Гарантируется, что в последовательности есть хотя бы одно четное число. Программа должна вывести наименьшее четное число. ТОЛЬКО паскаль

basik100grn · Accepted Answer

Procedure f(n: integer); begin if n 0 then begin write (n); f(n-2); f(n div 4); end end; begin f(9); end. на выходе будет 97531112 если нужна трассировка, её можно сделать примерно так: procedure f(n: integer); begin writeln( вход ); if n 0 then begin writeln ( в выходную строку: ,n); writeln( вызов f(n-2) ); f(n-2); writeln( вызов f(n div 4) ); f(n div 4); end; writeln( выход ) end; begin f(9); end. результат трассировки: вход в выходную строку: 9 вызов f(n-2) вход в выходную строку: 7 вызов f(n-2)...

Ответы на вопрос:

Популярно: Информатика