Формулировка задачи:
Найти все трехзгачные числа Амстронга( числа, равные сумме кубов своих цифр)
Код к задаче: «Найти все трехзначные числа Армстронга»
textual
var i, a, b, c : integer; begin for i := 100 to 999 do begin a := i mod 10; b := i div 100; c := (i div 10) mod 10; if (i = a * a * a + b * b * b + c * c * c) then Writeln(i); end; Readln; end.
Полезно ли:
6 голосов , оценка 4.167 из 5
0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 4 |
|
1 |
|
Найти все трехзначные числа Армстронга01.11.2013, 19:53. Показов 6497. Ответов 1
Найти все трехзгачные числа Амстронга( числа, равные сумме кубов своих цифр)
0 |
Reveng 424 / 424 / 338 Регистрация: 25.06.2012 Сообщений: 668 |
||||
01.11.2013, 20:11 |
2 |
|||
Решение
0 |
IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604 |
01.11.2013, 20:11 |
Помогаю со студенческими работами здесь Найти все трехзначные числа,определив функцию, позволяющую распознавать простые числа
Найти все трехзначные простые числа
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: 2 |
Числа Армстронга (Pascal)
Число, состоящее из n (n>1) цифр, называется числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому этому числу. Например, числами Армстронга являются 153 и 1634, так как
$$153=1^{3}+5^{3}+3^{3};$$
$$1634=1^{4}+6^{4}+3^{4}+4^{4}.$$
Составим программу, которая будет находить все n-значные числа Армстронга (n — входное данное, причем n<10).
Program Armstrong;
uses crt;
var step:array [0..9] of integer;
n, {исходное данное}
x, {пробное n-значное число}
min, {наименьшее n-значное число}
max,{наибольшее n-значное число}
summa, {сумма n-x степеней цифр числа x}
k, l, p: integer;
begin
write('Введите исходное данное: ');
read(n);
{заполняется массив step}
for k:=0 to 9 do
begin
step[k]:=k;
for l:=2 to n do
step[k]:=step[k]*k
end;
{находятся наименьшее и наибольшее n-значные числа: min и max}
min:=1;
for l:=1 to n-1 do
min:=min*10;
max:=min*10-1;
{испытываются все n-значные числа}
for x:=min to max do
begin
p:=x;
summa:=0;
{находится сумма n-x степеней цифр числа х}
for l:=1 to n do
begin
summa:=summa+step[p mod 10];
p:=p div 10
end;
if summa=x then {x - число Армстронга}
writeln(x)
end;
readkey
end.
При входном данном n=3 ЭВМ напечатала такие числа Армстронга:
$$153$$
$$370$$
$$371$$
$$407$$
2012-06-24 • Просмотров [ 12074 ]
Напишите программу в паскаль! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K — ю степень (где K — количество цифр в числе) равна самому числу. Например, 153 = 1 3 + 5 3 + 3 3. Напишите программу, которая находит все числа Армстронга на отрезке [ a, b ]. Входные данные Входная строка содержит два натуральных числа — значения a и b, разделённых пробелами. Гарантируется, что a ≤ b. Выходные данные Программа должна вывести в одну строчку все числа Армстронга на отрезке [ a, b ], разделив их пробелами. Если таких чисел нет, программа должна вывести число — 1.
Получи верный ответ на вопрос 🏆 «Напишите программу в паскаль! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K — ю степень (где K — …» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Главная » Информатика » Напишите программу в паскаль! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K — ю степень (где K — количество цифр в числе) равна самому числу. Например, 153 = 1 3 + 5 3 + 3 3.
70 месяцев назад
Напишите программу в паскаль! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K
-ю степень (где K – количество цифр в числе) равна самому числу. Например, 153 = 1 3 + 5 3 + 3 3 . Напишите программу, которая находит все числа Армстронга на отрезке [ a , b ] . Входные данные Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b . Выходные данные Программа должна вывести в одну строчку все числа Армстронга на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет, программа должна вывести число -1.