Напишите программу, которая вводит натуральные числа a и b и выводит все простые числа в диапазоне от a до b . входные данные: входная строка содержит два натуральных числа, a и b . гарантируется, что a ≤ b . выходные данные программа должна вывести в одной строке через пробел все простые числа на отрезке [ a , b ] . если таких чисел нет, программа должна вывести 0.

Var     a,b,d,k,kp: integer;     p: boolean; begin kp: =0; readln(a,b); if (a = 1)or(a = 2) then     begin     kp: =2;     write(2,' ',3)     end else if a = 3 then               begin               kp: =1;               write(3);               end; if a < 5 then a: =5 else if a mod 2 = 0 then a: =a+1; while a< =b do     begin     k: =trunc(sqrt(a));     d: =3;     p: =true;     while d < = k do           begin           if a mod d = 0 then p: =false;           d: =d+2           end;     if p then           begin           kp: =kp+1;           write(' ',a);           end;     a: =a+2     end; if kp = 0 then write(0) end.

только  25-18=7 человек

только французский 27 - 18 = 9 человек

ну а на вопросы не отвечу =))

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.