воскресенье, 13 ноября 2016 г.

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




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

Комментариев нет:

Отправить комментарий