Найти все простые числа в заданном интервале - 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.