求两个整数的整数商和商（保留两位小数）

var a,b,c:integer d:real;
begin
readln(a,b);
c:=a div b;
d:=a/b;
writeln(c,' ',d);
end.
哪里有错呢

integer之后缺分号

解释 0 要种子留邮箱不发明晚直播吃翔

你的读入是什么？另外错在哪里？

输出时d后面没打:0:2

program chuchu;
var
a,b,c:integer;
d:real;
begin
readln(a,b);
c:=a div b;
d:=a/b;
writeln(c,' ',d:0:0);
end.

下载贴吧APP
看高清直播、视频！

分享到: