Вовочка играл с числами. Первое он брал случайное число кратное 3, но не больше 1000. Каждое последующее число он получал путём суммирования кубов цифр предыдущего. Он проделывал эту процедуру n-ое количество раз, пока не получ...
Вовочка играл с числами. Первое он брал случайное число кратное 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 153
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.2 сборка 1813
Var
n,r,i:integer;
s:string;
begin
n:=1;
while n mod 3<>0 do
n:=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.
Пример работы программы:
Рандомное число:255
258 645 405 189 1242 81 513 153
Не нашли ответ?
Похожие вопросы