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
Find the greatest integers - v1
Helpme
123456
Tugas2
Pascal First
Грицанова, стр. 26, пример 1.7
Assignment 1
testMatrice0.1
Enigma
practica 3 ejercicio 3