olgaborodec82

26.12.2020 14:31 •  Информатика

Ниже записана программа. Получив на вход число 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.

​