Viết chương trình pascal sử dụng lệnh while...do hoặc for to do để tính tổng S=3+4+6+...+n. N là số nguyên nhập từ bàn phím
Mọi người ơi, mình có một thắc mắc câu hỏi này khá khó và mình chưa tìm ra lời giải. Có ai có thể giúp mình giải đáp được không?

Để tính tổng S=3+4+6+...+n trong chương trình Pascal, bạn có thể sử dụng lệnh for to do hoặc while do như sau:
Cách 1: Sử dụng lệnh for to do
```
program Tong_Cac_So;
var
n, S, i: integer;
begin
write('Nhap so nguyen n: ');
readln(n);

S := 0;
for i := 3 to n step 2 do
begin
S := S + i;
end;

writeln('Tong S = ', S);

end.
```
Cách 2: Sử dụng lệnh while do
```
program Tong_Cac_So;
var
n, S, i: integer;
begin
write('Nhap so nguyen n: ');
readln(n);

S := 0;
i := 3;
while i <= n do
begin
S := S + i;
i := i + 2;
end;

writeln('Tong S = ', S);

end.
```
Đó là cách làm để tính tổng S=3+4+6+...+n trong chương trình Pascal sử dụng lệnh for to do hoặc while do. Các bạn có thể chọn cách nào thích hợp để giải quyết bài toán này.