сервис вопросов и ответовсоставьте программу нахождения трёхзначного числа , куб суммы цифр которого равен ему самому
5-9 класс|
|
Alexrevin
08 мая 2014 г., 9:52:08 (9 лет назад)
PolinaSolovyova
08 мая 2014 г., 11:32:52 (9 лет назад)
var
a,b,c,n:integer;
begin
for n:=100 to 999 do
begin
a:= n div 100;
b:= n div 10 mod 10;
c:= n mod 10;
if (a+b+c)*(a+b+c)*(a+b+c)=n then writeln(n);
end;
end.
и в результате получаем, что это число 512
Ответить
Другие вопросы из категории
В некотором каталоге хранился файл Хризантема.doc,
имевший полное имя
D:\2013\Осень\Хризантема.doc.
В этом каталоге создали подкаталог
Ноябрь и файл Хризантема.doc
переместили в созданный подкаталог.
Укажите полное имя этого файла после перемещения.
1)
D:\2013\Осень\Ноябрь\Хризантема.doc
2)
D:\Ноябрь\Хризантема.doc
3)
D:\2013\Осень\Хризантема.doc
4)
D:\2013\Ноябрь\Хризантема.doc
Написать программу
Дан массив. Найти:
1) сумму элементов массива, значение которых не превышает 20
2) сумму элементов массива, кратных 3 или 5
3)Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
на языке паскаль
Помогите написать сочинение на тему:
"Почему я хочу работать с компьютером"
Сама написать не могу, фантазии нет, помогите
Читайте также
1)Составить программу нахождения суммы квадратов чисел от 25 до 125.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
1)Определить какое из двухзначных чисел имеет наибольшую сумму цифр 2)Пользователь ввёл двузнч числа.Поменяйте цифры данного числа местами 3)Проверить
есть ли в трёхзначном числе два одинаковых цифры
Вы находитесь на странице вопроса "составьте программу нахождения трёхзначного числа , куб суммы цифр которого равен ему самому", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.