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

Предыдущий
вопрос Следующий
вопрос

Наибольшее число х, при вводе которого алгоритм печатает сначала 4, а потом 0, будет таким, что количество цифр в нем равно 4 и произведение всех его цифр равно 0.

Поскольку произведение всех цифр числа равно 0 только в случае, если в числе есть хотя бы один нуль, то искомое число должно иметь хотя бы один ноль.

Таким образом, наибольшее число x, удовлетворяющее условиям алгоритма, будет 10 000.