Вовочка играл с числами. первое он брал случайное - вопрос №61378483 от Студент71653 26.10.2020 02:51

Question

Информатика: Вовочка играл с числами. первое он брал случайное число кратное 3, но не больше 1000. каждое последующее число он получал путём суммирования кубов цифр предыдущего. он проделывал эту процедуру n-ое количество раз, пока не получал число 153. послу чего брал новое число. вывести на экран последовательность чисел, записанную вовочкой. например: 33 3^3 + 3^3=54 5^3+4^3=189 1^3+8^3+9^3=1242 1^3+2^3+4^3+2^3=81 8^3+1^3=513 5^3+1^3+3^3=153 пример: ввод рандом вывод: исходное число 33 54 189 1242 81 513

Студент71653 · Answer

//PascalABC.NET 3.2 сборка 1813Var n,r,i:integer; s:string;beginn:=1;while n mod 3 0 don:=random(1001);writeln( Рандомное число: ,n);s:=inttostr(n);while n 153 do  begin    n:=0;    for i:=1 to length(s) do      n:=n+round(power(strtoint(s[i]),3));    s:=inttostr(n);    write(s, );  end;end.Пример работы программы:Рандомное число:255258 645 405 189 1242 81 513 153 ...