@Odor

Поможете написать алгоритм?

Задача звучит так: Найдите трехзначные числа, равные сумме кубов своих цифр.
  • Вопрос задан
  • 38 просмотров
Решения вопроса 1
VDT2
@VDT2
Java Junior
3(3)+7(3)+0(3)=370.
Program SumCuba;
var x, {пробное число}
 n, {последняя цифра}
 p, {число без последней цыфры}
 s:integer; {сумма кубов цифр}
begin
 for x:=1 to 2000 do
 begin
 s:=0;
 p:=x;
 while p>0 do {нахождение суммы кубов цифр числа х}
 begin
 n:=p mod 10;
 p:=p div 10;
 s:=s+n*n*n
 end;
 if x=s then writeln(x)
 end;
readln
end.


153
370
371
407
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы