新人求大佬纠错 - pascal吧

新人求大佬纠错

level 3

1600421379CN 楼主

var
s,a,m,n,c,k:longint;
begin
read(m,n,a);
if m mod a=0 then c:=m div a else then c:=m div a+1;
if n mod a=0 then k:=n div a else then k:=n div a+1;
s:=c*k;
write(s);
end.

2017年12月16日 00点12分 1

level 1

唐浩展之歌

2017年12月16日 10点12分 2

level 5

acdsztg

else后面的两个then应该没有
应该是 else m:=c div a +1
下面一句也是一样的

2017年12月18日 13点12分 3

level 5

sakuraYXFO

var
s,a,m,n,c,k:longint;
begin
read(m,n,a);
if m mod a=0 then c:=m div a else c:=m div a+1;
if n mod a=0 then k:=n div a else k:=n div a+1;
s:=c*k;
write(s);
end.
记得缩格啊兄台不过我也从来不缩格

2018年03月16日 10点03分 4