Найти все натуральные числа, не превосходящие заданного 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 i*i*i + j*j*j + k*k*k = i*100+j*10+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 i*i*i + j*j*j + k*k*k = i*100+j*10+k then writeln (i, j, k);
readln;
end;
end.
Или как правильнее написать программу?
Ответы (1)
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов его цифр. var i, j, k : byte; begin for i:=1 to 9 do for ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа
Вычеслите массовую долю кальция, кремния, кислорода в веществе CaSiO3
Нет ответа
1 км кв сколько кв мм
Нет ответа
Как найти значения выражений а - 8, а + 10 , при а = 12, а = 20, а = 28, а = 43
Нет ответа
1. Запиши кратные числа 14, но меньшие 50 2. Запиши в порядке все делители 36 3. Запиши 3 числа кратные n 4. Покажите, что а) число 65484 кратно 321 b) число 432 делитель 218592
Нет ответа