2 ответа
Дарина Бакликова
Var i,k,m,n,ord,a: integer;
begin
write('k = '); readln(k);
ord:=1; a:=1;
write('числа Армстронга: ');
for i:=1 to k do
begin
if igt;a*10 then
begin
inc(ord);
a:=a*10;
end;
m:=i; n:=0;
repeat
n:=n+round(power((m mod 10),ord));
m:=m div 10;
until m=0;
if n=i then write(i,' ');
end;
writeln;
end.
k = 100
числа Армстронга: 1 2 3 4 5 6 7 8 9
k = 10000
числа Армстронга: 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474
begin
write('k = '); readln(k);
ord:=1; a:=1;
write('числа Армстронга: ');
for i:=1 to k do
begin
if igt;a*10 then
begin
inc(ord);
a:=a*10;
end;
m:=i; n:=0;
repeat
n:=n+round(power((m mod 10),ord));
m:=m div 10;
until m=0;
if n=i then write(i,' ');
end;
writeln;
end.
k = 100
числа Армстронга: 1 2 3 4 5 6 7 8 9
k = 10000
числа Армстронга: 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474
Ваня Шикурин
//Современное решение на PascalABC.NET версии 3.3
begin
seqgen(readinteger('Введите k:'), n -gt; n + 1).Where(f -gt; (f.ToString.Select
(x -gt; power(x.toDigit, f.ToString.Length)).Sum) = f).Println;
end.
Пример работы программки:
Введите k: 99999999
1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 24678050 24678051 88593477
begin
seqgen(readinteger('Введите k:'), n -gt; n + 1).Where(f -gt; (f.ToString.Select
(x -gt; power(x.toDigit, f.ToString.Length)).Sum) = f).Println;
end.
Пример работы программки:
Введите k: 99999999
1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 24678050 24678051 88593477
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов