Дано число 16. на каждом следующем шаге к нему приписывают его самого задом наперед и столько единиц, - id802813620210212 от Настя670303 12.02.2021 17:20

Question

Информатика: Дано число 16. на каждом следующем шаге к нему приписывают его самого задом наперед и столько единиц, сколько нечетных цифр было в числе после предыдущего шага. таким образом, после первого шага получится число 16611, после второго шага – число 1661111661111, и так далее. сколько единиц будет в чисел после десятого шага?

Настя670303 · Accepted Answer

Программа в системе PascalABC.Net (время выполнения около 2с) var   n1,n2,n3:int64; function IsPrime(n:Int64):Boolean; var   p:Int64;   found:Boolean; begin   case n of   1:Isprime:=False;   2:IsPrime:=True;   else begin     found:= (n Mod 2 = 0);     p:=3;     while (not found) and (sqr(p) =n) do       begin found:=(n Mod p = 0); p:=p+2 end;     IsPrime:=(not found) or (p = 2)     end   end end; procedure Fib(); begin   n3:=n1+n2; n1:=n2; n2:=n3 end;   var   i,k:integer; begin   n1:=0; n2:=1; k:=0;...

MOGZ ответил