Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 :
p:=1; i:=1; while i<=5 do begin p:=p*i; i:=i+1; end;
Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 :
p:=1; i:=1; while i<=5 do begin p:=p*i; i:=i+1; end;