Вопрос по информатике:
Помогите, Пожалуйста.
Числа Армстронга. Натуральное число называется числом Арм., если сумма цифр числа, возведенных в n-ую степень, где n- кол-во цифр в числе, равна самому себе ( 153=1^3+5^3+3^3). Найдите все трехзначные и четырехзначные числа Арм. (pascal)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.05.2016 02:49
- Информатика
- remove_red_eye 6452
- thumb_up 14
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
function IsArmstrong(n:integer):boolean;
// Является ли n числом Армстронга?
begin
var a:=n.ToString.Select(c->c.ToDigit).ToArray;
Result := n=(a.Select(d->Round(Power(d,a.Length))).Sum);
end;
begin
Range(100,9999).Where(i->IsArmstrong(i)).Println
end.
Результат
153 370 371 407 1634 8208 9474
- 03.05.2016 06:22
- thumb_up 22
var i: array [0..10] of real;
var sum: real;
begin
write('Числа Амстронга: ');
for a:=100 to 9999 do
begin
n:=0;
sum:=0;
a_2:=a;
while a_20 do
begin
i[n]:=a_2 mod 10;
n+=1;
a_2:=a_2 div 10;
end;
for j:=0 to n-1 do
sum:=power(i[j],n)+sum;
if (sum = a) then
write(a,' ');
end;
end.
- 04.05.2016 09:07
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.