fork download 
  1. program czy_k;
  2.  
  3. var k,i,x: integer;
  4.     dzieli:boolean;
  5.  
  6. begin
  7.     read(k);
  8.     dzieli:=false;
  9.     i:=2;
  10.  
  11.     while (i <= k - 1) and not dzieli do
  12.     	begin
  13.     		x := k;
  14.     		while x >= i do
  15.     			x := x - i;
  16.  
  17.     		if x = 0 then
  18.     			dzieli := true
  19.     		else 
  20.     			i := i + 1;
  21.     	end;
  22.  
  23.     if  dzieli then writeln(k,' nie jest liczba pierwsza.')
  24.                else writeln(k,' jest liczba pierwsza.')
  25. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin 
9
stdout 
9 nie jest liczba pierwsza.
https://ideone.com/iKMk9o
czy k jest liczbą pierwszą - przez odejmowanie
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!