Tin học Viết chương trình tính tổng sau: A = 1 + 1/2 + 1/3 + … + 1/n 21/08/2021 By Jade Viết chương trình tính tổng sau: A = 1 + 1/2 + 1/3 + … + 1/n
program bai1; var s,n,i:longint; begin write(‘N= ‘); readln(n); s:=0; for i:=1 to n do s:=s+1/i; write(‘S= ‘,s); readln end. (Mình xài máy tính nên mình test thử trên máy rồi nhé.) Trả lời
program tong; uses crt; var n, i: integer; A: real; begin write(‘Nhap n = ‘); readln(n); A:=0; for i := 1 to n do A:=A+1/i; writeln(‘Tong cua A = ‘,A); readln end. Trả lời
program bai1;
var s,n,i:longint;
begin
write(‘N= ‘);
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write(‘S= ‘,s);
readln
end.
(Mình xài máy tính nên mình test thử trên máy rồi nhé.)
program tong;
uses crt;
var n, i: integer;
A: real;
begin
write(‘Nhap n = ‘); readln(n);
A:=0;
for i := 1 to n do A:=A+1/i;
writeln(‘Tong cua A = ‘,A);
readln
end.