Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
For8
program HelloWorld; var i,N,s:Integer; begin Readln(N); s:=0; for i:=1 to N div 2 do begin if N mod i=0 then s:=s+i; end; if s=N then Writeln('YES')else Writeln('NO'); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
contar_divisores_de_N
zadanye 3 a
Potenztabelle
nomer3
binary_search-бинарный_поиск
power of a number
Урок 3 не из учебника. U-контур и функция sign (x)
task 2
x-div-2-x-3+1
Homework 10
stackse - search stackoverflow differently
Please log in to post a comment.