Вовочка играл с числами. первое он брал случайное число кратное 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
Алина0811111
2
06.08.2019 15:10
2
Другие вопросы по теме Информатика
катя1377
18.09.2021 08:43
2899101714lp
18.09.2021 08:38
20112005505438
18.09.2021 08:36
lehfrb
18.09.2021 08:36
мда28
08.08.2019 16:00
fedotovairochkp0cujm
08.08.2019 16:00
MaxineCaulfield2003
08.08.2019 16:00
lizabatyshkina
08.08.2019 16:00
FairTail
30.03.2020 21:22
Популярные вопросы
- 10. какое из перечисленных веществ не является изомером гексадиена-1,3:...
1 - Образец мрамора массой 20 г обработали разбавленной азотной кислотой...
3 - 1)электрон влетает в однородное магнитное поле, индукция которого...
1 - Впервой бочке было в 2 раза больше бензина чем во второй. когда...
2 - Найти точки пересечения с осями координат y=1/3x^3-x^2+6...
1 - Всосуде вместимостью 8,31 м кубических находится водород массой...
3 - 1.найти производную функции y= ∛x --ln cosx+½cos²x (под знаком...
2 - Сторони паралелограма 22 см і 46 см, а діагоналі відносяться, як...
1 - Більша вісь та піввісь еліпса х^2/25 + у^2/9 = 1...
2 - Плийз! кислородные соединения. азотная кислота, ее...
3
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