Найдите значение х после выполнения следующего алгоритма, если х=11

A. x:=x+1

Б. x:=3x+1

B. x:=x/2

C. x:=100-x

D. x:=x*2

E. begin

x:=x+1

x:=3x+1

x:=x/2

x:=100-x

x:=x*2

write (x) ;

end.

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

Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. Паскаль var a, b, a, K, L: integer; begin F: = (1-x) * (x-9) + 4 end; Begin a:=-16; b:=16 K:=a to b do if F (s) > L then begin K:=s; L:=F (a) end; writen (K) End.

Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;

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.

Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...