viết chương trình tính s=2/3+2/6+2/9+…+2/36 bằng while..do giúp mình với 16/07/2021 Bởi Savannah viết chương trình tính s=2/3+2/6+2/9+…+2/36 bằng while..do giúp mình với
var i: integer;s: real;beginwhile i<37 dobegini:=i+3;s:=s+(2/i);end;writeln (‘tong la: ‘,s:1:0);readln;end. Bình luận
uses crt;var i: integer;s: real;beginclrscr;while i<=36 dobegini:=i+3;s:=s+(2/i);end;writeln (‘tong la: ‘,s:1:2);readln;end. Bình luận
var i: integer;
s: real;
begin
while i<37 do
begin
i:=i+3;
s:=s+(2/i);
end;
writeln (‘tong la: ‘,s:1:0);
readln;
end.
uses crt;
var i: integer;
s: real;
begin
clrscr;
while i<=36 do
begin
i:=i+3;
s:=s+(2/i);
end;
writeln (‘tong la: ‘,s:1:2);
readln;
end.