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
Ariketa 06
2;3
числа с несовпадающими цифрами
practica 11 ejercicio 5
JONES AKPOTU
365
Akanshapanchal2000@gmail.com
Object Pascal
2
Светофор-графика