Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Сортировка массива цифр
Задача №3549. Замечательные числа - 5
zadacha7
Светофор-графика
practica 11 ejercicio 3
C:\Users\skava\Documents\Паскаль
1
звёздное небо с подсчётом двойных звёзд
Vector Addition
practica 9 ejercicio 8
Please log in to post a comment.