Напишите программу в паскаль!

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

153 = 1 3 + 5 3 + 3 3.

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

Входные данные

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

Выходные данные

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

Question

Информатика

Максимиан

7 марта, 14:32

Напишите программу в паскаль!

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

153 = 1 3 + 5 3 + 3 3.

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

Входные данные

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

Выходные данные

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

+1

Ответы (1)

Знаете ответ?

Поплия · Answer 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.