KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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,...,aNa1,…,aN
Bước 2.i←0i←0,P←1P←1
Bước 3.i←i+1i←i+1
Bước 4. 4.1 Nếui>Ni>Nthì kết thúc thuật toán và đưa ra kết quả
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,...,aNa1,…,aN
Bước 2. i←0i←0 , P←1P←1
Bước 3. i←i+1i←i+1
Bước 4. 4.1 Nếu i>Ni>N thì kết thúc thuật toán và đưa ra kết quả
4.2 P←P⋅iP←P⋅i rồi quay lại bước 3
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.