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 |