Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Mon ami Simon
practica 3 ejercicio B3
1
Linija
SmallQuest
Lab1SumWithRepeat
P170815A - Cálculo da massa de um tanque
Удвоенное число с одинаковыми цифрами
Perfect numbers
ProcedureTest1
Please log in to post a comment.