Поделитесь своими знаниями, ответьте на вопрос:
Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 4, а потом 0. var x, a, b : longint; begin readln(x); a : = 0; b : = 1; while x > 0 do begin a : = a + 1; b : = b * (x mod 10); x : = x div 10; end; writeln(a); write(b); end.
Счётчик a показывает разрядность числа, в данном случае - 4.
b = 0, если хотя бы одна из цифр числа является нулём.
Таким образом, максимально возможное число, удовлетворяющее данным условиям есть 9990.
ответ 9990.