Ответы 2
Еще вопросы
-
сочинение описание на белорусском
-
Предмет:
Беларуская мова -
Автор:
jayson123 - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
Паскаль!
Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K -ю степень (где K – количество цифр в числе) равна самому числу. Например,
153 = 1^ 3 + 5^ 3 + 3^ 3 .
Напишите программу, которая находит все числа Армстронга на отрезке [ a , b ] .
Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .
Выходные данные
Программа должна вывести в одну строчку все числа Армстронга на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет, программа должна вывести число -1.
У меня программа написана, но она просто выводит все числа Армстронга, помогите учесть промежуток от a до b и если таких чисел нет то вывести -1
var
i,l,k,a,b,c,s,e,g,f,x,h,j:integer;
begin
for i:=100 to 9999 do
begin
l:=i;
while l<>0 do
begin
l:=l div 10;
k:=k+1;
end;
if k=3 then
begin
a:=i mod 10;
b:=i div 100;
c:=i div 10 mod 10;
s:=a*a*a+b*b*b+c*c*c;
if i=s then
write(i,' ');
end
else
begin
e:=i mod 10;
g:=i div 10 mod 10;
f:=i div 100 mod 10;
x:=i div 1000;
h:=f*f*f*f+g*g*g*g+e*e*e*e+x*x*x*x;
if i=h then
write(i,' ');
end;
k:=0;
end;
end.-
Предмет:
Информатика -
Автор:
nash36 - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
Как нарисовать круг без циркуля радиусом в 3см
-
Предмет:
Математика -
Автор:
bradyortiz - 6 лет назад
-
Ответов:
1 -
Смотреть
-
-
окружность с центром в точке О описана около равнобедренного треугольника ABC в котором ab=bc и угол abc=88 градусов. найдите угол boc
-
Предмет:
Математика -
Автор:
alonsogcmd - 6 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years