Tin học Viết chương trình tính các tổng sau S=1+1/2+1/3+..+1/n 01/08/2021 By Cora Viết chương trình tính các tổng sau S=1+1/2+1/3+..+1/n
Program tinh_tong; Uses crt; Var i,n: integer; S: real; Begin Write (‘Nhap n=’); Readln (n); S:=0; For i:= 1 to n do S:= S+ 1/i; Writeln (‘Tong S la:’, S:7:2); Readln End. Trả lời
program ct; uses crt; var s:real; i,n:integer; begin clrscr; write(‘nhap n=’); readln(n); s:=0; for i:=1 to n do s:=s+1/i; writeln(‘tong la’,s); readln end. Trả lời
Program tinh_tong;
Uses crt;
Var i,n: integer;
S: real;
Begin
Write (‘Nhap n=’);
Readln (n);
S:=0;
For i:= 1 to n do
S:= S+ 1/i;
Writeln (‘Tong S la:’, S:7:2);
Readln
End.
program ct;
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
write(‘nhap n=’); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(‘tong la’,s);
readln
end.