Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
For9
program HelloWorld; var i,N:Integer; begin Readln(N); for i:=1 to N div 2 do begin if N mod i=0 then Writeln(i); end; Writeln(N); end.
run
|
edit
|
history
|
help
0
Busquedad Pascal
звёздное небо с подсчётом двойных звёзд
Подсчёт количества единичных битов в десятичном числе от 0 до 15
Lab2RandomAndAvg
Data fb Akanshapanchal2000@gmail.com
RENAN COSTA CARLOS DA CUNHA 600623343
Record as a procedure argument
For10
Pokazivaci, ulancane liste
3e22