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 amp;lt;amp;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(39;число армстронга ==amp;gt; 39;, a); end; end.
Задать свой вопрос
Число вводится в формате строчки.
var
a: integer;
i,j,k,c,m,e: integer;
s: string;
f: Boolean;
begin
f:=false;
for i:=100 to 9999 do
begin
str(i,s);
a:=0;
for j:=1 to Length(s) do
begin
val(s[j],m,e);
c:=1;
for k:=1 to Length(s) do
c:=c*m;
a:=a+c;
end;
if a=i then
write(a, );
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.