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
Largest Prime Factor
LUIZ ANTONIO RANGEL MUNIZ 60061122
2 5 8
2nd tsk
test27
НОД не по ЕВКЛИДУ но без массивов
Object Pascal
Вычисление e^x с помошью ряда Тейлора
6
TOHOP