Натуральное число, в записи которого n цифр, называется числом Армстронга, если сумма его цифр, возведенная в степень n, равна
154
336
Ответы на вопрос:
Program n1;
function st(a,b: integer): integer;
var i: integer;
begin
st:=1;
for i:=1 to b do st:=st*a;
end;
function ams(x: integer): boolean;
var k,t: integer;
sum: integer;
begin
ams:=false;
t:=x;
k:=0;
while x<>0 do
begin
x:=x div 10;
k:=k+1;
end;
x:=t;
sum:=0;
while t<>0 do
begin
sum:=sum+st(t mod 10,k);
t:=t div 10;
end;
if x=sum then ams:=true;
end;
var i,k: integer;
begin
readln(k);
for i:=1 to k do if ams(i) then write(i,' ');
end.
function st(a,b: integer): integer;
var i: integer;
begin
st:=1;
for i:=1 to b do st:=st*a;
end;
function ams(x: integer): boolean;
var k,t: integer;
sum: integer;
begin
ams:=false;
t:=x;
k:=0;
while x<>0 do
begin
x:=x div 10;
k:=k+1;
end;
x:=t;
sum:=0;
while t<>0 do
begin
sum:=sum+st(t mod 10,k);
t:=t div 10;
end;
if x=sum then ams:=true;
end;
var i,k: integer;
begin
readln(k);
for i:=1 to k do if ams(i) then write(i,' ');
end.
Очень красивый роман. В котором главный герой - наивный человек, который считает, что для уважения нужно быть рыцарем. А так же смешные истории с ним. Где он поступает по его мнению по- рыцарски, не включая смекалку что на русском, не очень знаю украинскую мову.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
1. Arengu todo sobre ese evento : realizado entrevistas consulta...
вопрос21024.12.2020 13:01 -
Сколько поддерживает касаний iphone 7...
арсаева21.05.2023 05:00 -
Придумать комедию про дневник и тетрадь...
KaDet177822.08.2022 23:50 -
Найди 1/3 часть от самого большого пятизначного числа...
kris41104.01.2021 09:01 -
Мини сочинение на тему понравились или не понравились каникулы зимние...
картерк25.04.2022 17:06 -
От какого числа число 80 состовляет 1/4 часть...
IrinaCipher31.12.2021 08:12 -
Образуйте прилагательные из сочетаний: «1,5 суток» и «95 лет»...
nazi3319.01.2021 02:58 -
Длина стороны квадрата равна 7дм.вычисли его площадь...
Nelai5428.11.2021 09:45 -
Постройте график уравнения (х-2)^+y^=0...
таир2024.08.2022 20:00 -
Вмагазине было 340 кг. вишен и слив, абрикос и слив было 310 кг.,а...
57den1604.07.2021 14:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.