Для улучшения отметки

 

Решить задачу

Ученик в первый день занятий выучил 5 иностранных слов.

В каждый последующий день он выучивал на 2 слова больше, чем в предыдущий.

Сколько слов выучит ученик за четверть( 60  дней занятий)? 

Выучить

// фам1

var s,i: integer;
begin

    s:=0; for  i:= -15 to 15 do s:= s+i;
    writeln('i=',i,'  s=',s);
end.

1	Вычисл сумму чисел от 0 до 8	S:=0; for i:=-0 to 8 do S:=S+i;
2	Вычисл произвед  чис от 1 до 8	p:=1; for i:=1 to 8 do p:=p*i;
3	Вычисл суммы  четных чис от 2 до 8	S:=0; for i:=2 to 8 do if i mod 2 =0 then S:=S+i;
4	Вычисл суммы  нечетных чис от 1 до 8	S:=0; for i:=1 to 8 do if i mod 2 =1 then S:=S+i;
5	Вычисл произвед  четных чис от 2 до 8	p:=1; for i:=2 to 8 do if i mod 2 =0 then p:=p*i;
6	Вычисл произвед  кратных 3  чис от 1 до 8	p:=1; for i:=1 to 8 do if i mod 3 =0 then p:=p* i;