Tin học Viết chương trình nhập vào 1 số n từ bàn phí và tính tổng từ 1/3 +1/6+1/9+…+1/n 31/07/2021 By Natalia Viết chương trình nhập vào 1 số n từ bàn phí và tính tổng từ 1/3 +1/6+1/9+…+1/n
uses crt; var i,n: longint; s:real; begin clrscr; write (‘nhap n: ‘); readln (n); repeat i:=i+3; s:=s+(1/i); until (i>=n); writeln (‘tong la: ‘,s); readln; end. Trả lời
uses crt;
var i,n: longint;
s:real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
repeat
i:=i+3;
s:=s+(1/i);
until (i>=n);
writeln (‘tong la: ‘,s);
readln;
end.