Tin học viết chương trình

[Chem002]

[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 chương trình tính và đưa kết quả ra màn hình S= N!

 

[Ray Kevin]

var s,n,i:integer;
begin
   write('Nhap n = '); readln(n);
   s:=1;
   if (n=0) or (n=1) then writeln('S=1') else
   begin
     for i:=2 to n do s:=s*i;
     writeln('S=',s);
   end;
   readln
end.

 

[Sơn Nguyên 05]

viết chương trình tính và đưa kết quả ra màn hình S= N!

Code nhé!
Write(‘nhap n’); Readln(n);
Fo i:=2 to n do S: S*
WritelnS:6,4)