Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  10
Language: PASCAL
Code:

program 1;
var m,x,y,w,h,p,z,n:real;
begin
readln(m); readln(x); readln(y); readln(w); readln(h);
if frac(x/m)>0 then 
p:=1;
p:=p+ round ((w-(m-(frac(x/m)))/m);
if frac(y/m)>0 then
z:=1;
z:= z + round((h-(m- frac(y/m)))/m);
n:=p*z;
    writeln(n);
end.
Comments: