program3.txt

(0 KB) Pobierz

Program Pierwsze;
Var n,i:integer; zm:boolean;
Begin
  zm:=true;
  write('Program sprawdza czy liczba n jest liczba pierwsz�');

  Repeat
    write('Podaj n>0 : ');
    readln(n);
  Until (n>0);

  if ((n<>1) and (n<>2))
    then Begin
           i:=2;
           repeat
             if (n mod i=0)
               then zm:=false
               else i:=i+1;
           until((zm=false) or (i>=n));
         end;

   If (zm=true)
     then writeln('Liczba n: ',n,'  jest liczba pierwsza')
     else writeln('liczba n: ',n,' nie jest liczba pierwsza');

readln;
end.

program3.txt

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: