Найти все натуральные числа, не превосходящие заданного 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. или как правильнее написать программу?

202

318

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

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

Riki008

Информатика

4,6(6 оценок)

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.

dassshaVv

Информатика

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

ты еюнеправильно написал

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

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку