Найти все простые числа в заданном интервале - Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте,можете подсказать,что не верно в задаче : у из интервала от A до B найти все простые.Определение простоты числа оформить в виде функции. я сделала но не полностью, надо чтоб 2 и 3 тоже писались
uses crt;
 
var s,i,a,b:integer;
function  vot(a,b:integer):integer;
begin
writeln(' nahodim proctye chisla ');
readln(a,b);
 
writeln ( 'interval chisel ot a=',a,' do b=',b);
 
   for i:=а to b do begin \\ сдесь пишет ошибку 
     if i mod 2 <>0 then
        if i mod 3 <>0 then
 
     writeln(i);
 
     end;
 
end;
 
begin
vot(a,b);
readln;
end .

Решение задачи: «Найти все простые числа в заданном интервале»

textual
Листинг программы
var
  a, b, i: Integer;
  function IsSimple(const n: Integer): Boolean;
  var
    i: Integer;
  begin
    IsSimple:=True;
    for i:=2 to Trunc(Sqrt(n)) do
      if (n mod i)=0 then
      begin
        IsSimple:=False;
        Break
      end
  end;
begin
  Write('От: '); Readln(a);
  Write('До: '); Readln(b);
  for i:=a to b do
    if IsSimple(i) then
      Writeln(i, ' - простое число');
  Readln
end.

Оцени полезность:

13   голосов , оценка 3.538 из 5
Похожие ответы