Найти значение переменной Р. ... p:=1; For i:=3 to 5 do p:=p*(2*i); write(p); Найти значение переменной S. ... i:=2; s:=0 ;while i<=8 do<br>begin s:=s+s/2; i:=i+2; end; write(s);
P=480 S=0 _____________________________________________
P=480, S=0. Насчет S, проверь, мне кажется ты что-то перепутал.