Что будет на экране после выполнения следующего фрагмента программы, если массив содержит следующие значения (15,3,4,7,12) :

K:=0

For I:=1 to 5 do

If (a[i] mid 2) 0 then begin k:=k+1; b[k]:=a[i]; end;

For I: = 1 to k do

Write (b[i],'')

3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=2; for i:=0 to 2 do begin a:=a+i; end; Ответ: введите число 4.

6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.

1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.

1) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 3; s : = 0; while n < = 26 do begin s : = s + 6; n : = n + 1 end; write (s) end.

3. Определите значение переменной с после выполнения следующего фрагмента программы: a : = 30; b : = 14; a : = a - 2 * b; if a > b then c : = b + 2 * a else c : = b - 2 * a; 4.