var
s:real;
begin
s:=s+100;
writeln(s:2:0);{5月1日}
s:=s+20;
writeln(s:2:0);{5月2日}
s:=s/3*2;
writeln(s:2:0);{5月3日}
s:=s*3;
writeln(s:2:0);{五月四日}
end.
直接复制到记事本里，再保存好，拖到Free pascal 里就行了
var
s:real;
begin
s:=s+100;
writeln(s:2:0);
s:=s+20;
writeln(s:2:0);
s:=s/3*2;
writeln(s:2:0);
s:=s*3;
writeln(s:2:0);
end.
var
n:integer;
begin
readln(n);
n:=n+100;
writeln(n);
n:=n+20;
writeln(n);
n:=n div 3;
writeln(n);
n:=n*4;
writeln(n);
end.
100
120
30
120
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024