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

​

Уляна2000002    2   16.03.2021 09:02    0