fork download
copy 
  1. program czy_k_jest_liczba_pierwsza_z_div;
  2. var k,i: integer;
  3.     dzieli:boolean;
  4.  
  5. begin
  6.     read(k);
  7.     dzieli:=false;
  8.     i:=2;
  9.  
  10.     while (i <= k - 1) and not dzieli do
  11.     	begin
  12.     		if (k div i) * i = k then
  13.     			dzieli := true
  14.     		else
  15.     			i := i + 1;
  16.     	end;
  17.  
  18.     if  dzieli then writeln(k,' nie jest liczba pierwsza.')
  19.                else writeln(k,' jest liczba pierwsza.')
  20. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
9
stdout
copy 
9 nie jest liczba pierwsza.
https://ideone.com/WuZAO4
czy k jest liczbą pierwszą - przez div
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!