Напишите программу которая вводит натуральные числа a и b и выводит все простые числа в диапазоне от a до b

115

262

Посмотреть ответы 2

Ответы на вопрос:

vikafirsova

Информатика

4,6(99 оценок)

Function isprime(n: longint): boolean; var i, sqrtn, delta: word; begin if (n > = 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0) then begin i : = 5; delta : = 2; sqrtn : = trunc(sqrt(n)); isprime : = false; while i < = sqrtn do begin if n mod i = 0 then exit; inc(i, delta); delta : = delta xor 6; {смена шага, то 2, то 4} end; isprime : = true; end else isprime : = (n = 2) or (n = 3); end; var a,b,i : integer; begin readln(a,b); for i: =a to b do if isprime(i) then writeln(i); end.