ромакравчук12

18.02.2021 06:07 •  Информатика

Ниже записана программа. Получив на вход число x, эта программа печатает два числа. НАПИШИТЕ ПРОГРАММУ, КОТОРАЯ УКАЗЫВАЕТ  на наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 21. var x, a, b: integer;
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.

​