Question

Что выводит на экран данный фрагмент?
P:=9;
for i:=1 to 10 Do
begin
P:=P*i
Writeln(P, '*',i,'=',P)
end;

Answer 1

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) (а затем выводится его новое значение )

Answer 2

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;