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
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
By Savannah
By 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;
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.