

Znacie moze jakis prosty alogrytm na sprawdzenie czy dana liczba jest liczba pierwsza???
Tylko nie korzystajac z zadnych programow. Czy da sie to tak sprawdzic???
W porgramowaniu jestem nemo a wiec nie znam tych wszystkich polecen
Z gory dzieki

program liczba_pierwsza;
uses crt, DOS;
var a,f,z,b,i:integer;
u:text;
begin
clrscr;
for a:=1 to 541 do
begin
b:=0;
for i:=2 to a-1 do
begin
f:=a mod i;
if f=0 then
b:=b+1;
end;
assign(u,'C:\liczba_pierwsza.txt');
if b=0 then
write(a,' ');
APPEND(U);
write(u,A);
close(u);
end;
repeat until keypressed;
end.
Użytkownicy przeglądający to forum: Brak zarejestrowanych użytkowników oraz 1 gość