Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 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.