.

Смотрите expressmenu.ru купить зерновой кофе в Москве. | Итальянский кофе lavazza подробности здесь. |

1 - 2


:

begin

i := 3; k := 0;

while i <= trunc(sqrt(p)) do

begin

if p mod i = 0 then k := k + 1;

i := i + 2

end;

if k = 0 then write(p, ' ')

end

, (probleme number - ):

Procedure Probleme_number(p : integer);

var

i, k : integer;

begin

if p=2 then write(p, ' ') else if p mod

2<>0

then

begin

i := 3; k := 0;

while

i<=trunc(sqrt(p)) do

begin

if

p mod i = 0

then

k := k + 1;

i := i + 2

end;

if k = 0 then

write(p, ' ')

end

end;

, .

. .

Program

Problem3; { [n; m] }

uses WinCrt;

var

n, m, i : integer;

{----------------------------------------------------------------------------------------}

Procedure probleme_number(p : integer);

var

i, k : integer;

begin

if p=2 then write(p, ' ')

else if p mod 2 <> 0

then

begin

i := 3; k := 0;