Определить результат выполнения фрагмента программы (без компьютера): s:=1;

for x:=2 to 6 do

s:=s*x;

writeln(‘s=’,s);

720

Объяснение:

s = 1

для x от 2 до 6 выполнить  s = s * x

x = 2     s = 1 * 2 = 2

x = 3     s = 2 * 3 = 6

x = 4     s = 6 * 4 = 24

x = 5     s = 24 * 5 = 120  

x = 6     s = 120 * 6 = 720

вывод s = 720

720 - результат выполнения фрагмента программы

s=720 - на экране