Контрольная работа по теме «Циклы» В1

Контрольная работа по теме «Циклы»

                                                 ВАРИАНТ 1

1.Написать алгоритм по составленной программе.

               Program zadacha;
                        var i,S: integer;
                         begin

                                S=1;
                          for i:=1 to 10 do

                            begin

                        if i>5

                               then S:=S+i*453

                                       else S=S;
                              write(S);
                                 end;
                              еnd.

2.  Используя  блок-схему   написать алгоритм .        

3. Найти сумму чисел на промежутке от -10 до 100 , удвоив четные слагаемые