Ideone.com

fork download

copy

program p14;
var
	x,y,r,q: integer;
begin
	readln (x,y);
	r:=x;
	q:=0;
	while r>=y do
		begin
			r:=r-y;
			q:=q+1;
		end;
	writeln(r,q:10)
end.

Success #stdin #stdout 0s 4256KB

stdin

copy

30 7

stdout

copy

2         4

https://ideone.com/Nk0URb

language:

Pascal (gpc 20070904)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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