Что выводит на экран данный фрагмент? P:=9; for i:=1 to 10 Do begin P:=P*i Writeln(P, '*',i,'=',P) end;
9*1=9 18*2=18 54*3=54 216*4=216 1080*5=1080 6480*6=6480 45360*7=45360 362880*8=362880 3265920*9=3265920 32659200*10=32659200 так как P:=P*i; (сначала считается P) Writeln(P, '*',i,'=',P) (а затем выводится его новое значение )
9 * 1 = 9 18 * 2 = 18 54 * 3 = 54 и т.д. как я понимаю у тебя неправильно написана программа напиши сорри люблю while XD P:=9; i = 1; while (i <> 10) do begin Writeln(P, '*',i,'=',P*i) i := i + 1; end;