Вариант 8. Задача 562 Натуральное число из n цифр является числом Армстронга если сумма его цифр возведе.
Работа добавлена на сайт samzan.net:
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №7
По дисциплине «Алгоритмические языки и программирование»
Руководитель:
Якимов С.П.
(подпись)
Разработал:
Студент гр. 21-6
Прокопьев М.C.
(подпись)
Красноярск-2004.
Отчёт.
Вариант №8.
Задача № 562
Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу (как, например, 153=13+53+З3). Получить все числа Армстронга, состоящие из двух, трех и четырех цифр.
Текст программы:
program Z_562;
uses crt;
{возвращает число X, возведенное в степень N}
function Power(X,N:integer):longint;
var
i:byte;
P:longint;
begin
P:=1;
for i:=1 to N do
P:=P*X;
Power:=P;
end;
var
i:integer;
N:byte; {N - кол-во цифр в числе}
S:word; {сумма цифр, возведенных в степень N}
X1,X2,X3:byte;{X1,X2,X3-цифры проверяемого числа}
begin
clrscr;
writeln('All Armstrong:');
for i:=10 to 9999 do
begin
X1:=i mod 10;
X2:=i div 10 mod 10;
X3:=i div 100 mod 10;
if i<=99 then {определение кол-ва чисел в числе}
N:=2
else
if N<=999 then
N:=3
else
if N<=9999 then
N:=4;
S:=0;
S:=Power(X1,N)+Power(X2,N)+Power(X3,N);
if S=i then
writeln(i);
end;
readln;
end.
2. на тему Маркетинг в туризме на примере туристической фирмы Работу выполнил-
3. Российско-германский энергетический пакт
4. Австрийская республика
5. Курсовая работа- Производство нитробензола
6. Чингиз Торекулович Айтматов. Прощай, Гульсары!.html
7. Водоснабжение и водоотведение жилого дома.html
8. Тема 14- Анализ отчетность аудит в сфере труда 1237141822 1
9. Прояви себя и интернетпорталом pedkonkurs
10. Бобруйский государственный медицинский колледж Н
11. Экономическая газета
12. Чайка АПЧехова
13. Моделирование динамики яркостной температуры земли методом инвариантного погружения и нейронных сетей
14. Реферат- Развитие Web технологий
15. Тема- Опасности среды обитания человека Классификация опасностей в системе человексреда обитания С
16. Умничка -Добронецкая Е
17. Використання сучасних технічних засобів в процесі вивчення іноземної мови
18. реферат дисертації на здобуття наукового ступеня кандидата технічних наук Харків 1999
19. Тема-[[УстройствоТО и ремонт автомабильных шин]]
20. Кастрация хрячка.html