СРОЧНО!!!1. Определите значение переменной a после выполнения фрагмента программыa := 10;if a > 5 thena := a + 10elsea := a - 3;if a b thenM := aelseM := b;if c > b thenM := celseM := b;При каких наборах значений a, b, c эта программа работает неверно?
1a = 3; b = 2; c = 12a = 2; b = 1; c = 33a = 1; b = 2; c = 34a = 2; b = 3; c = 15a = 1; b = 3; c = 26a = 3; b = 1; c = 23. Какое число нужно записать вместо многоточия, чтобы в результате работы фрагмента программы были напечатаны ровно четыре звездочки?x:=...;while x < 9 do beginwriteln('*');x := x + 1;end;4. С помощью цикла for вычислите значение выражения 2*3 + 3*4 + ... + 39*405. Сколько ячеек памяти будет отведено для хранения массива A, заданного таким образом?var A: array[-7..7] of integer;6. Массив из десяти элементов заполнили, а потом изменили. Чему будет равна сумма значений элементов массива после выполнения фрагмента программы?for i := 1 to 10 doA[i]:=i;for i := 2 to 10 doA[i]:= A[i - 1];7. Программист написал программу, вычисляющую сумму элементов массива A, десятичная запись которых заканчивается на 6. Какое условие он записал вместо многоточия?s := 0;for i := 1 to n do beginif ... thens:= s + A[i]end;

1. 10

2. 12

3. 3

4. 22

5. 15

6. 34

7. 3

Часть 2

1. 

Var

 n:integer;

Begin

 Write('Введи число ');

 Readln(n);

 if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);

End.

2.

Var

 a,b:integer;

Begin

 Write('Введи числа ');

 Readln(a,b);

 if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);

End.

3.

Var

 n:integer;

Begin

 write('Введи двузначное число ');

 Readln(n);

 if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');

End.