1)Определить значение переменной s после выполнения следующих операторов. Ответ пояснить.
a)s:=0; for i:=1 to 5 do s:=s+i;
b)s:=0; for i:=1 to 10 do if odd(i) then s:=s+i;
c)s:=0; for i:=-3 to 3 do begin if i<0 then k:=-i else k:=i; s:=s+k; end;
d)s:=100; for i:=5 downto 2 do s:=s div i;
2)Определить значение переменной s после выполнения следующих операторов. Ответ пояснить.
a)s:=1; n:=1; for i:=2 to n do s:=s+1/i
b)s:=110; for i:=4 downto 2 do s:=s div i;
3)var k, i:integer; x, y:real;
Найти ошибки в следующем фрагменте программы:
a)y:=0; for x:=0.1 to 0.9 do y:=y+sin(x);
b)k:=81; y:=1; for i:=1 to sqrt(k) do y:=2*y;
c)k:=0; for i:=1 to 9 do k:=k+sqr(i); k:=k*i;
d)k:=1; for i:=1 to 64 do begin i:=2*i; k:=k+i end.
4)Сколько раз будет выполняться тело следующего оператора цикла?
k:=0; for i:=1 to k+3 do k:=k+1;
5)Программа. Дано 100 вещественных чисел.
a)Вычислить максимальное из них;
b)Вычислить разность между максимальным и минимальным из них.
6)Программа. Имеется целое k>0. Вычислить k-й член последовательности {x}, где x1=1 и xn=nxn-1 +1/n при n=2, 3, 4...
7)Программа. Вычислить: y=sin1+sin1.1+sin1.2+...+sin2
8)Программа. Вычислить: 
9)Программа. Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность.
10)Программа. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.
