Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Решето Эратосфена
const dig = 55; var primes, sieve : set of 2..dig; count, i : integer; begin primes := [2..dig]; sieve := []; for count := 2 to dig do if count in primes then begin sieve := sieve + [count]; for i := 1 to dig div count do primes := primes - [count * i] end; writeln (sieve); end.
run
|
edit
|
history
|
help
0
Урок 3 задача 10 (1483) два момента времени
Shuffle number array
вывод строк символов
12 13
6
test01
Fibonacci
practica 7 ejercicio 9
11.7.2013 naloga2
Подсчёт количества целочисленных точек внутри круга радиуса r