• Напишите программу в паскаль!
    Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K -ю степень (где K – количество цифр в числе) равна самому числу. Например,

    153 = 1 3 + 5 3 + 3 3 .

    Напишите программу, которая находит все числа Армстронга на отрезке [ a , b ] .

    Входные данные
    Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .

    Выходные данные
    Программа должна вывести в одну строчку все числа Армстронга на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет, программа должна вывести число -1.

Ответы 1

  • program Amstrong;var  a,b: integer;  i,j,k,  ci,  si,mi,  errkod: integer;  sti: string;  flag: Boolean;begin  Readln(a,b);  flag:=false;  for i:=a to b do  begin    str(i, sti);    si:=0;    for j:=1 to Length(sti) do    begin      val(sti[j],mi,errkod);      ci:=1;      for k:=1 to Length(sti) do        ci:=ci*mi;      si:=si+ci;    end;    if si=i then    begin      write(si,' ');      flag:=true    end;  end;  if not flag then write(-1);  Readln; end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years