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
Первая задание
Looping (odd no.)
Programa para calcular digito verificador de un RUT
sound
Задача №3549. Замечательные числа - 5
JONES AKPOTU
For4
LewisCableCompanyPasprogramme
array
Linija