Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
For4
program HelloWorld; function kube(i:Integer):Integer; begin kube:=i*i; kube:=kube*i; end; var i:Integer; begin for i:=100 to 999 do begin if kube(i mod 10)+kube(i div 10 mod 10)+ kube(i div 100 mod 10)=i then Writeln(i); end; end.
run
|
edit
|
history
|
help
0
test27
solar system 7 (update)
the longest sub-array
Random_1
test28
perpus
Андреева Урок 6 задача 8 (1531)
НОД через делители чисел
Урок 6. Задача 1 (1525). Номер самого большого числа
right angle triangle