program Untitled; uses crt; var p,i:longint; begin clrscr; p:=1; i:=1; while i <=101 do begin p:=p*i; i:=i+2; end; writeln('tich tu 1 toi 101 la :',p); readln end.
Uses Crt; Var i:integer; P:int32; {Hoặc P:longint đều được} Begin Clrscr; For i:= 1 to 101 do P:=P*i; Writeln('Vay tich P=',P); Readln End. *Không biết có đúng không nữa, mong bạn check lại giúp mình :D Nhớ tick và chọn làm ctr/loi hay nhất giúp mình nhé! Thanks *Khó hiểu, comment bên dưới!
