Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №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.