Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 03:34
831
натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ю степень, где N - количество цифр в числе, равна самому числу. Напримерт153=1^3 5^3 3^3. Найдитетвсе трехзначныеии четырехзначныеичисла Армстронга
1
ответ
Var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
else c:=(b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число армстронга ==> ', a);
end;
end.
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
else c:=(b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число армстронга ==> ', a);
end;
end.
0
·
Хороший ответ
29 декабря 2022 03:34
Остались вопросы?
Еще вопросы по категории Информатика
27. Гиперссылки на web-странице могут обеспечить переход а) только в пределах данной web-страницы; б) только на web-страницы данного сервера; в) н...
Найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111. НА C++...
Каждый из десяти населенных пунктов соединен автодорогами с девятью другими(без проезда на промежуточные пункты). При этом автобусное сообщение сущест...
6. Определи, при каком наибольшем введённом значении переменной s программа выведет число 10. Для твоего удобства программа представлена на четырё...
Что такое байт, килобайт, мегабайт и гигабайт? Как они связаны между собой? Сколько байтов составляют 1/2 килобайта? Сколько битов содержится в 1/2...