GRY-Online.pl --> Archiwum Forum

Turbo Pascal zadanie

14.11.2005
18:02
smile
[1]

Faleg [ Chorąży ]

Turbo Pascal zadanie

mialem napisac program ktory poda wszystkie liczby pierwsze w danym przedziale zrobilem cos takiego wtedy program podaje wszytskie liczby z przedzialu tylko nie liczby pierwsze nie mam pojecia jak zrobic zeby podawal tylko liczb pierwsze bo jak zrobie ze ma byc <> to podaje mi wszysytkie

z gory thx za help

procedure szerliczb_1(od,az:integer);
var
x,y,c: integer;

begin
clrscr;
write('podaj przedzial');
read(od,az);
for x:=od to az do
begin
for c:=2 to x-1 do
begin
y:=x mod c;
if y=0 then
begin
write(x);
end;

end;

end;
readkey;
end;

14.11.2005
22:12
[2]

Qbaa [ Senator ]

można np. tak:

procedure szerliczb_1(od,az:integer);
var
x,y,c:integer;
n:boolean;
begin
for x:=od to az do
begin
n:=false;
for c:=2 to x-1 do
begin
y:=x mod c;
if y=0 then n:=true;
end;
if n=false then write(x);
end;
readkey;
end;

© 2000-2021 GRY-OnLine S.A.