2 câu trả lời
program tong_20;
uses crt;
var i,tong:byte;
begin
clrscr;
tong:=0;
for i:=1 to 20 do tong:=tong+i;
write('Tong 20 so tu nhien dau tien la: ',tong);
readln;
end.
Mình không có phần mềm Pascal đề thử nên mình viết thuật toán thôi , bạn dựa vào để viết chương trình nhé. Mình viết dạng tổng quát cho N số tự nhiên đầu tiên.
Bước 1. Nhập N và dãy số a1,...,aN
Bước 2. i←0 , P←1
Bước 3. i←i+1
Bước 4. 4.1 Nếu i>N thì kết thúc thuật toán và đưa ra kết quả
4.2 P←P⋅i rồi quay lại bước 3
