Viết thuật toán tính tổng s 1 3 5 n năm 2024

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

2 bình chọn đúng

Báo cáo sai phạm

baonhi09 đã chọn câu trả lời này

chơi thế thì lúc nào chả hạng nhất

0 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

1 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

0 bình chọn đúng

Báo cáo sai phạm

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

1 bình chọn đúng

Báo cáo sai phạm