Найти все числа Армстронга в диапазоне от a до b

@rikity · Регистрация: 28.05.2016

Author24 — интернет-сервис помощи студентам

Найти все числа Армстронга в диапазоне от a до b, где a и b – целые
натуральные числа. Написать подпрограмму, которая находит сумму кубов
цифр числа.

@Puporev · 07.06.2016, 15:51

Pascal

uses crt;
function Armstrong(n:longint):boolean;
var m,k,p,s,t,i:integer;
begin
m:=n;
k:=0; {количество цифр в числе}
while m>0 do
 begin
  k:=k+1;
  m:=m div 10;
 end;
s:=0;
m:=n;
while m>0 do
 begin
  p:=m mod 10;
  t:=1;
  for i:=1 to k do
  t:=t*p;
  s:=s+t;
  m:=m div 10;
 end;
Armstrong:=s=n;
end;
var a,b,i,k:longint;
begin
clrscr;
repeat
write('Введите интервал натуральных чисел b>a ');
readln(a,b);
until(a>0)and(b>a);
k:=0;
for i:=a to b do
if Armstrong(i) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('На этом интервале нет чисел Армстронга');
readln
end.

@rikity · 07.06.2016, 16:13 **[ТС]**

а можно отдельно основную програму для нахождения чисел Армст

@Puporev · 07.06.2016, 17:30

Можно, пиши.

Добавлено через 38 минут

Сообщение от rikity

Написать подпрограмму, которая находит сумму кубов
цифр числа.

Число Армстронга не есть сумма кубов цифр=числу, а

число Армстронга — натуральное число, которое в данной системе счисления равно сумме своих цифр, возведённых в степень, равную количеству его цифр.

@rikity 0 / 0 / 0 Регистрация: 28.05.2016 Сообщений: 9
		1
	Найти все числа Армстронга в диапазоне от a до b 07.06.2016, 15:35. Показов 6010. Ответов 3 Метки нет (Все метки) Найти все числа Армстронга в диапазоне от a до b, где a и b – целые натуральные числа. Написать подпрограмму, которая находит сумму кубов цифр числа. 0

@rikity 0 / 0 / 0 Регистрация: 28.05.2016 Сообщений: 9
	07.06.2016, 16:13 [ТС]	3
	а можно отдельно основную програму для нахождения чисел Армст 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.06.2016, 17:30	4
	Можно, пиши. Добавлено через 38 минут Сообщение от rikity Написать подпрограмму, которая находит сумму кубов цифр числа. Число Армстронга не есть сумма кубов цифр=числу, а число Армстронга — натуральное число, которое в данной системе счисления равно сумме своих цифр, возведённых в степень, равную количеству его цифр. 0

Найти все числа Армстронга в диапазоне от a до b

Решение