英语翻译
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 16:22:07
英语翻译
英语翻译
英语翻译
var a,b,c:real;i,s:longint;
begin
b:=0.1;a:=0;
for i:=1 to 9 do
begin
a:=a+b;
b:=b+0.1;
end;
writeln(a);
readln;
end.
白痴
var i:longint;
a,s:real;
begin
a:=0.1;
s:=0;
for i:=1 to 9 do
begin
s:=s+a;
a:=a+0.1;
end;
writeln(s);
end.
var
a,b:longint;
begin
for a:=1 to 9 do begin
a:=a*0.1;
b:=b+a;
end;
writeln(b);
end.
小丝望楼主采纳!!!萌!!
begin
write(0.1+0.2+0.3+0.4+0.5+0.6+0.7+0.8+0.9:0:1);
end.
无聊吧...
var a:integer;
c:real;
begin
for a:=1 to 10 do
c:=c+a/10;
write(c);
end.
上面的,烦死了。
怎么可能会错。
自己加一加吧,肯定对的。