Найти все натуральные числа, не превосходящие заданного n и равные сумме кубов его цифр. var i,j,k : byte; begin for i: =1 to 9 do for j: =0 to 9 do for k: =0 to 9 do if iii + jjj + kkk = i100+j10+k then writeln(i,j,k); readln; end. как сделать ввод самих значений, чтобы программа соответствовала ? var i,j,k,n: integer; begin write('введите значение n='); readln(n); begin for i: =1 to n do for j: =0 to n do for k: =0 to n do if iii + jjj + kkk = i100+j10+k then writeln(i,j,k); readln; end; end. или как правильнее написать программу?

261

287

Посмотреть ответы 2

Ответы на вопрос:

kartofan2016p08uuy

Информатика

4,5(57 оценок)

Var n, s,i,j: integer; begin read(n); for i : = 1 to n.tostring.length do s : = s + round(power(strtoint(n.tostring[i]), 3)); for i : = 1 to n do if(i = s) then writeln(i); end.

SleaM4ik

Информатика

4,7(11 оценок)

A: =3 - записать переменной а значение 3 b: =4 - записать переменной b значение 4 a: =a+b - сложить значение переменной а со значением переменной b, записать результат в переменную а после выполнения этого кода будет а=7 b=4

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.