Подготовка к самостоятельной работе

1	begin end ;	Операторные скобки
2	i	счетчик
3	for i:= 1 to 8 do	Цикл от 1 до 8
4	s:=1; for i:= 1 to 8 do s:=s*i;	Вычислить произведение чисел от1 до 8
5	s:=0; for i:= 1 to 8 do s:=s+i;	Вычислить сумму чисел от1 до 8
6	s:=0; for i:= 1 to 8 do begin s:=s+i;  i:= i +1; end ;	Вычислить сумму нечетных чисел от1 до 8
7	s:=0; for i:= 1 to 8 do begin i:= i +1; s:=s+i;  end ;	Вычислить сумму четных чисел от1 до 8
8	s:=1; for i:= 1 to 8 do begin s:=s*i;  i:= i +1; end ;	Вычислить произведение нечетных чисел от1 до 8
9	s:=1; for i:= 1 to 8 do begin i:= i +1; s:=s*i;  end ;	Вычислить произведение четных чисел от1 до 8
10	program sss;{  зад 24 стр 71 }      var  k, i,s: integer ;      begin       s:=0;  {  первонач колич кресел  }       k:=15; {  первай ряд  }      for i:= 1 to 25 do begin {цикл 25, т.к. 25рядов}                s:=s+k;    {  подсчет количества кресел  }                k:=k+2;  {  увеличение на кресла в ряду  }                          end ;         writeln('сумм',s);           end.	Задача по аналогии 24 стр. 71