Question

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

Answer 1

Счётчик a показывает разрядность числа, в данном случае - 4.

b = 0, если хотя бы одна из цифр числа является нулём.

Таким образом, максимально возможное число, удовлетворяющее данным условиям есть 9990.

Ответ 9990.