Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
f1
//fpc 3.0.0 program f1; var n,k,t:integer; begin readln (n); t:=1; for k:=2 to n-1 do if n mod k = 0 then begin t:=0; break end; if t=1 then writeln (n,' martivia') else writeln (n,' shedgenilia'); readln; end.
run
|
edit
|
history
|
help
0
solar_system_n_(20)_planets_an_time
1
Pascal Epsilon
OLEG-02oct2017
Mengubah desimal ke biner
la moyenne de théo
Task 2
test22
Excercise3
corza71