Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/i;
inc(i);
end;
writeln('tong la: ',s:4:2);
readln;
end.
a: Thuật toán thực hiện công việc tính tổng các số dương trong dãy n số nguyên
Đang bận thi học kỳ nên không có làm được.
Btw câu 9,10 m có thể search gg :))
Không cần viết chương trình đâu chứ ha :3
Program So_nguyen;
uses crt;
Var a,b,t:integer;
Begin
clrscr;
Writeln(' Nhap 2 so nguyen a va b:');
if a>b then t:= a-b;
if a<b then t:=b-a;
if a=b then t:=0;
Writeln(' Ket qua la',t);
Readln;
End.
a, mình nghĩ tổng cx bằng n vì từ đầu ta đã gán s:=0
b, câu này mik k biết 
bạn thông cảm nha 
Đáp án C