a) Xác định bài toán :

Input : không có dữ liệu vào

Ouput : tích các số từ 1 đến 10

b) Mô tả thuật toán 

Bước 1 : i ← 1; T ← 1;

Bước 2 : T ← T * i;

Bước 3 : i ← i + 1; 

Bước 3 : Nếu i <= 10 thì quay lại bước 2

Bước 4 : Xuất T

Bước 5 : Kết thúc

1, Xác định bài toán

Đề bài: Tính Tích các số từ 1 đến 10

Input (Dữ liệu vào): Không có

Output (Dữ liệu ra): Tích các số từ 1 đến 10
2, Thuật toán

Ta sẽ gắn giá trị của n bằng 10, t bằng rồi tính tích

Code: 

uses crt;

var n,t:integer;

begin

clrscr;

n:=10;

t:=1

for i:=1 to n do t:=t+i;

writeln('tich cua 10 so tu nhien dau tien la: ',t);

readln;

end.

Xin hay nhất ạ!

nguyenquanghuy24#