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.
program tongA;
var
n: integer;
A, i: real;
begin
write('Nhap n: ');
readln(n);
A := 0;
i := 1;
while i <= n do
begin
A := A + 2 / i;
i := i + 1;
end;
writeln('Tong A la: ', A:0:2);
readln;
end.
Python:
n = int(input("Nhập giá trị của n: "))
A = 0
i = 2
while i <= n:
A += 2/i
i += 1
print("Tổng A =", A)
var i,n,s:integer;
begin
write('nhap n = ');readln(n);
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong la ',s);
readln;
end.
Var i,n,p:longint;
Begin
Write('Nhap n = ');readln(n);
i:=1;
p:=1;
While i<=n do
Begin
i:=i+1;
p:=p*i;
End;
Write('Tich la ',p);
Readln;
End.
Em tham khảo nhé.
Đây là chương trình tìm tổng A:
```
var n, A: real;
write('Nhap vao so n: ');
readln(n);
A := 0;
for var i := 1 to Round(n) do
begin
A := A + 1/i;
end;
writeln('Tong A la: ', A:0:2);
```
Giải thích chương trình:
1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.
Đề sai đúng không, bạn kiểm tra lại đề nhé, mình không thấy quy luật gì trong dãy tổng của S cả
Viết chương trình pascal for to do để tính tổng S=2+4+6+...+n. N là số nguyên nhập từ bàn phím
var n, s, i: integer;
begin
write('Nhap n = ');
readln(n);
s := 0;
i := 3;
while i <= n do
begin
s := s + i;
i := i + 3;
end;
writeln('Tong la ', s);
readln;
end.
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 3 to n step 1 do
begin
if i mod 2 = 0 then
S := S + i;
end;
writeln('Tong S la: ', S);
readln;
end.
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
*while..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
var i,n,s:longint;
begin
read(n); if n<2 then break;
for i:=3 to n do s:=s+i;
write(s);
end.
Var i,n:integer;
t:longint;
Begin
Write('n = ');readln(n);
i:=2;
While i<=n do
Begin
t:=t+i;
i:=i+1;
End;
Write('Tong la ',t);
Readln
End.