Находение числа Армстронга на отрезке

@Kirilllll · Регистрация: 23.03.2010

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

С клавиатуры вводятся два натуральных числа а, б. Нафти на отрезке [a, b] все числа Армстронга!
Пример программы:
400 2000
407 // число Армстронга
1634 // число Армстронга
Просьба помоч решить задачу с помощью функций, или как вам удобно! Заранее спасибо! ))

Добавлено через 25 минут
Неужели никто не может помоч??

@AnDrew_LP · 03.06.2010, 12:31

1634 это не число Армстронга 1+6*6*6+3*3*3+4*4*4=308, но никак не 1634

Pascal

var
 a,b:integer;
 i:integer;
function prov(a:integer):boolean;
var
 c:array[1..10] of byte;
 k,i:byte;
 a1,s:integer;
begin
 a1:=a;
 i:=1;
 while a1>0 do
  begin
   c[i]:=a1 mod 10;
   a1:=a1 div 10;
   inc(i);
  end;
  k:=i-1;
 s:=0;
for i:=1 to k do
 s:=s+c[i]*c[i]*c[i];
if s=a then prov:=true else prov:=false;
end;
begin
 writeln('vvedite a,b');
 readln(a,b);
for i:=a to b do
 if prov(i) then write(i,' ');
readln;
end.

@Unrealler · 03.06.2010, 13:03

AnDrew_LP, мы возводим в степень 4. Это число Армстронга

@Kirilllll · 03.06.2010, 14:38 **[ТС]**

а кто нибудь правильное решение может дать???

@Kirilllll 4 / 6 / 9 Регистрация: 23.03.2010 Сообщений: 77
		1
	Находение числа Армстронга на отрезке 03.06.2010, 11:18. Показов 1598. Ответов 3 Метки нет (Все метки) С клавиатуры вводятся два натуральных числа а, б. Нафти на отрезке [a, b] все числа Армстронга! Пример программы: 400 2000 407 // число Армстронга 1634 // число Армстронга Просьба помоч решить задачу с помощью функций, или как вам удобно! Заранее спасибо! )) Добавлено через 25 минут Неужели никто не может помоч?? 0

@Unrealler 654 / 352 / 113 Регистрация: 11.12.2009 Сообщений: 508
	03.06.2010, 13:03	3
	AnDrew_LP, мы возводим в степень 4. Это число Армстронга 0

@Kirilllll 4 / 6 / 9 Регистрация: 23.03.2010 Сообщений: 77
	03.06.2010, 14:38 [ТС]	4
	а кто нибудь правильное решение может дать??? 0