Question

Hãy viết chương trình tính tích các số từ 1 đến 100

Answer 1

1x2x3x..x100

Answer 2

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=1;

for i:=1 to 100 do 

  s:=s*i;

writeln(s:0:0);

readln;

end.

Answer 3

Program viet_chuong_trinh_tinh_tong;
Uses Crt; 
Var i,s:integer; 
Begin 
Clrscr; 
i:=2; 
While (i>1) and (i<=100) do 
Begin 
s:=s+i; 
i:=i+2; 
End; 
Writeln(S); 
Readln; 
End.