Tin học Tin 8

[Maimailong]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viêt chuong trình pascal tính tích:S=S*1*2*3*4....N(while...do)

 

[Sơn Nguyên 05]

Code:
S:=1;
i:=1;
While i<= n do
Begin S:=S*i; i:=i+1; end;

 

[Maimailong]

Code:
S:=1;
i:=1;
While i<= n do
Begin S:=S*i; i:=i+1; end;

Thank bạn yêu