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
|