25 Банкетов ЗА ОТВЕТ.Добрый денек, прошу поправить мой код. Его сущность
25 Раутов ЗА ОТВЕТ.
Благой денек, прошу поправить мой код. Его сущность заключается в нахождении чисел Армстронга в интервале от 100 до 9999 ,но глюк этого кода содержится в том что он обретает числа только в интервале от 100 до 999. Прошу подмоги.
var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 lt;gt; 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
c:= (b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число армстронга ==gt; ', a);
end;
end.
1 ответ
Юленька Пырля
Более роскошное решение :)
Неувязка в строке c:= (b*b*b);
Ты разыскиваешь сумму кубов, а для 4-значных чисел необходимо разыскивать сумму 4-х ступеней. Нужно инспектировать число а: если от 100 до 999, то исполняем c:= (b*b*b); а если от 1000 до 9999, то исполняем c:= (b*b*b*b);
Код ниже работает и выдаёт итог:
число Армстронга ==gt; 153
число Армстронга ==gt; 370
число Армстронга ==gt; 371
число Армстронга ==gt; 407
число Армстронга ==gt; 1634
число Армстронга ==gt; 8208
число Армстронга ==gt; 9474
****************************************************************
var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 lt;gt; 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if alt;1000 then c:= (b*b*b)
else c:= (b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число Армстронга ==gt; ', a);
end;
end.
Неувязка в строке c:= (b*b*b);
Ты разыскиваешь сумму кубов, а для 4-значных чисел необходимо разыскивать сумму 4-х ступеней. Нужно инспектировать число а: если от 100 до 999, то исполняем c:= (b*b*b); а если от 1000 до 9999, то исполняем c:= (b*b*b*b);
Код ниже работает и выдаёт итог:
число Армстронга ==gt; 153
число Армстронга ==gt; 370
число Армстронга ==gt; 371
число Армстронга ==gt; 407
число Армстронга ==gt; 1634
число Армстронга ==gt; 8208
число Армстронга ==gt; 9474
****************************************************************
var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 lt;gt; 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if alt;1000 then c:= (b*b*b)
else c:= (b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число Армстронга ==gt; ', a);
end;
end.
Тема
В Паскале "популярно" писать не b*b*b*b, а sqr(sqr(b))
Саричев
Вадим
спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов