viết chương trình tính tích S = 1.2.3.4.5.6.7.8 18/07/2021 Bởi Iris viết chương trình tính tích S = 1.2.3.4.5.6.7.8
program Tinh_tich; uses crt; var i,S: integer; Begin clrscr; S:=1; for i:=1 to 8 do S:=S*i; write(‘Tich 8 chu so dau tien = ‘,S); readln End. Bình luận
Dưới ảnh
program Tinh_tich;
uses crt;
var i,S: integer;
Begin
clrscr;
S:=1;
for i:=1 to 8 do S:=S*i;
write(‘Tich 8 chu so dau tien = ‘,S);
readln
End.