viết chương trình tính tích các số tự nhiên từ 100 đến 1000 19/07/2021 Bởi Natalia viết chương trình tính tích các số tự nhiên từ 100 đến 1000
program tich; uses crt; var i: integer; S: longint; Begin clrscr; S:=1; for i:=100 to 1000 do S:=S*i; write(‘Tich = ‘,S); readln End. Bình luận
program tinhtich; Var i : integer; T : longint; Begin clrscr; T:=1; For i : = 100 to 1000 do T:=T*i ; writeln(‘Tich cac so tu nhien 100 den 1000 la: ‘,T); readln; end. Bình luận
program tich;
uses crt;
var i: integer;
S: longint;
Begin
clrscr;
S:=1;
for i:=100 to 1000 do S:=S*i;
write(‘Tich = ‘,S);
readln
End.
program tinhtich;
Var i : integer;
T : longint;
Begin
clrscr;
T:=1;
For i : = 100 to 1000 do T:=T*i ;
writeln(‘Tich cac so tu nhien 100 den 1000 la: ‘,T);
readln;
end.