fork download 
  1. program czynniki_pierwsze_m;
  2. var x,k,m: integer;
  3.  
  4. begin
  5.     read(m); x:=m; k:=2;
  6.     while m > 1 do
  7.     	begin 
  8.     		if m mod k = 0 then
  9.     			begin
  10.     				write(k, ' ');
  11.     				m := m div k;
  12.     			end
  13.     			else 
  14.     				k := k + 1;
  15.     	end;
  16. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin 
60
stdout 
2 2 3 5
https://ideone.com/DhJhpo
rozkład na czynniki pierwsze liczby m
language:
Pascal (fpc 3.0.4)
created:
7 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!