Задание №1
Какое число будет выведено на экран после выполнения этого фрагмента
программы?
write(1);
for i:=3 to 5 do
write(i);

Задание №2
Какое число будет выведено на экран после выполнения этого фрагмента
программы?
write(4);
for i:=3 downto 1 do
write(2*i);

Задание №3
Чему будет равно значение целой переменной a после выполнения этого
фрагмента программы?
a:=10;
for i:=1 to 2 do begin
a:=a-2;
end;

Задание №4
Определите, что будет напечатано в результате работы следующей
программы.
Var k, і: integer;
Begin
k:= 4;
For і:= 1 to 3 do
k:= 2*k + і;
Writeln(k);
End.

1) i в цикле меняется от 2 до 1 с шагом -1, поэтому будет выведено:

2 1

2) Сначала выводится число 4, а затем i меняется в цикле от 4 до 2 с шагом -1, поэтому будет выведено:

4 8 6 4

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.