среди чисел из интервала от А до В найти все простые.

[Антон Добый]

среди чисел из интервала от А до В найти все простые.

program r1;
uses crt; 
var a,b,c:integer;
function fus(c:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to c do
  if c mod i=0 then k:=k+1;
 if k=2 then fus:=k;
end;
begin
write('a=');readln(a);
write('b=');readln(b);
begin;
for c:=a to b do
fus(c);  write(c:4);
end;
readln;
end.

Подскажите что не так?


не забывайте оформлять код тегами!
Модератор

[Mad_Cat]

var
  a, b, i: Integer;
function IsSimple(x: Integer): Boolean;
var
  i: Byte;
  f: Boolean;
begin
  f := true;
  if (x = 1) then
    f := false
  else
    for i := 2 to trunc(sqrt(x)) do
      if (x mod i = 0) then begin
        f := false;
        break
      end;
  IsSimple := f;
end;
begin
  Read(a, b);
  Writeln;
  for i := a to b do
    if IsSimple(i) then
      Write(i, ' ');
end.

[BDA]

Лучше for i := 2 to trunc(sqrt(x)) do.
мини-обсуждение http://programmersforum.ru/showthread.php?t=200049