Question

Viết chương trình tích của 10 số tự nhiên đầu tiên.{dùng while...do..}
P=1.2.3.4.5.6.7.8.9.10

Answer 1

Program HOC24;

var P: integer;

i: byte;

begin

i:=1;  P:=1;

while i<=10 do

begin

p:=p*i;

i:=i+1;

end;

write('P = ',p);

readln

end.