a guest Jan 19th, 2019 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.   x,d:integer;
  3. begin
  4.   writeln('Podaj liczbe');
  5.   readln(x);
  6.   for d:=2 to x-1 do
  7.     begin
  8.       if x mod d=0 then
  9.       begin
  10.         writeln('liczba nie jest pierwsza');
  11.         break;
  12.       end;
  13.     end;
  14.   writeln('liczba jest pierwsza');
  15.   readln;
  16. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand