Числа Армстронга

@Veksha · Регистрация: 10.01.2012

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

помогите пожалуйста

1. «Числа Армстронга».
Натуральное число из N цифр является числом Армстронга, если сумма его цифр, возведенных в N – ю степень, равна самому числу, например: 153 = 13 + 53 + 33 .
Получить все числа Армстронга для 2<N<=4.
Во входных данных – количество цифр в числе – N.
Выходные данные – числа Армстронга в разных строках.

заранее благодарю

@YamateH · 18.11.2012, 12:38

Pascal

const u=4;{максимальное к-во цифр в числе - до 9}
var e:array[0..9]of longint;
    L,I,J,S:longint;
    b,n,m:byte;
begin
  for b:=0 to 9 do e[b]:=b;
  L:=1;
  for n:=2 to u do begin
    for b:=2 to 9 do e[b]:=e[b]*b;
    l:=l*10;
    for i:=l to l*10-1 do begin
      J:=I; s:=0;
      for m:=1 to n do begin
        s:=s+e[J mod 10];
        if s>i then break;
        J:=J div 10
      end;
      if s=i then writeln(i);
    end;
  end;
  readln;
end.

@Veksha · 18.11.2012, 12:44 **[ТС]**

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

Pascal

const u=4;{максимальное к-во цифр в числе - до 9}
var e:array[0..9]of longint;
    L,I,J,S:longint;
    b,n,m:byte;
begin
  for b:=0 to 9 do e[b]:=b;
  L:=1;
  for n:=2 to u do begin
    for b:=2 to 9 do e[b]:=e[b]*b;
    l:=l*10;
    for i:=l to l*10-1 do begin
      J:=I; s:=0;
      for m:=1 to n do begin
        s:=s+e[J mod 10];
        if s>i then break;
        J:=J div 10
      end;
      if s=i then writeln(i);
    end;
  end;
  readln;
end.

я понимаю, что здесь выводятся все числа от 2-ух до 4-ёх значных?
а можете сделать, чтоб можно было выбирать скольки значные числа выводились?

@YamateH · 18.11.2012, 12:46

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

я понимаю, что здесь выводятся все числа от 2-ух до 4-ёх значных?
а можете сделать, чтоб можно было выбирать скольки значные числа выводились?

Pascal

uses crt;
var i,j,p,a,b,c,d,a1,b1,c1,d1:integer;
begin
writeln('4isla Armstronga na intervale [10..9999]');
for i:=10 to 9999 do
 begin
  if i<100 then p:=2
  else if i<1000 then p:=3
  else p:=4;
  a:=i div 1000;
  b:=i div 100 mod 10;
  c:=i div 10 mod 10;
  d:=i mod 10;
  a1:=1;b1:=1;c1:=1;d1:=1;
  for j:=1 to p do
   begin
    a1:=a1*a;
    b1:=b1*b;
    c1:=c1*c;
    d1:=d1*d;
   end;
  if a1+b1+c1+d1=i then writeln(i);
 end;
end.

@Veksha · 18.11.2012, 12:49 **[ТС]**

а чтобы я вводил например 3 и он выводил только трехзначные числа армстронга, если бы я ввел 4, то он бы выводил только четырехзначные числа

@YamateH · 18.11.2012, 12:52

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

а чтобы я вводил например 3 и он выводил только трехзначные числа армстронга, если бы я ввел 4, то он бы выводил только четырехзначные числа

Зачем вам это нужно? У вас в условии такого нет, я незнаю возможно ли вообще реализовать то, что вы хотите.

@Veksha 2 / 2 / 2 Регистрация: 10.01.2012 Сообщений: 16
		1
	Числа Армстронга 18.11.2012, 12:06. Показов 1984. Ответов 5 Метки нет (Все метки) помогите пожалуйста 1. «Числа Армстронга». Натуральное число из N цифр является числом Армстронга, если сумма его цифр, возведенных в N – ю степень, равна самому числу, например: 153 = 13 + 53 + 33 . Получить все числа Армстронга для 2<N<=4. Во входных данных – количество цифр в числе – N. Выходные данные – числа Армстронга в разных строках. заранее благодарю 0

@Veksha 2 / 2 / 2 Регистрация: 10.01.2012 Сообщений: 16
	18.11.2012, 12:49 [ТС]	5
	а чтобы я вводил например 3 и он выводил только трехзначные числа армстронга, если бы я ввел 4, то он бы выводил только четырехзначные числа 0

@YamateH 13 / 12 / 2 Регистрация: 13.09.2012 Сообщений: 147
	18.11.2012, 12:52	6
	Сообщение от Veksha а чтобы я вводил например 3 и он выводил только трехзначные числа армстронга, если бы я ввел 4, то он бы выводил только четырехзначные числа Зачем вам это нужно? У вас в условии такого нет, я незнаю возможно ли вообще реализовать то, что вы хотите. 0