Program ma wypisywać liczby pierwsze od podanej x do n
Problem w tym, że wypisuje tylko cztery pierwsze, następne wypisuje dopiero po wcisnieciu enter. Nie wiem o co chodzi.
Nastepna rzecz, że nie chce wypisywac ich w rządku, mam na mysli
1
2
3
4...
a wypisuje 1,2,...
potem enter musze wcisnac i znowu 1,2 albo tylko 1dna wypisze.
Ktos wie moze gdzie lezy problem? bo program dziala dobrze, tylko nie chce wypisac wszystkiego od x do n za jednym razem.
Problem w tym, że wypisuje tylko cztery pierwsze, następne wypisuje dopiero po wcisnieciu enter. Nie wiem o co chodzi.
Nastepna rzecz, że nie chce wypisywac ich w rządku, mam na mysli
1
2
3
4...
a wypisuje 1,2,...
potem enter musze wcisnac i znowu 1,2 albo tylko 1dna wypisze.
Ktos wie moze gdzie lezy problem? bo program dziala dobrze, tylko nie chce wypisac wszystkiego od x do n za jednym razem.
Cytat:program Project1;
var n,x,licznik,k,idx:integer;
begin
read(x);
read(n);
while x<n do
licznik:=0;
for k:=1 to x do
begin
If (x mod k = 0) then licznik:=licznik +1;
end;
If licznik=2 then begin
Writeln(x,'jest liczba pierwsza')
end
Else
begin
Writeln(x,'nie jest liczba pierwsza');
end;
x:=x+2;
end.
