Дана программа на языке ПАСКАЛЬ: var n S x : integer; BEGIN n:=234; S:=0; while n>0 do begin x:...: ответ на тест 179171 - Математика и информатика

Дана программа на языке ПАСКАЛЬ:
 var n, a, b, c, i : integer;
BEGIN
   n:=7; a:=0; b:=1;
     for i=2 to n do
                     begin
                       c:=a+b; a:=b; b:=с
                     end;
    writeln (с);
END.
Тогда результатом работы этой программы является ...

Дана программа на языке ПАСКАЛЬ:
 var n, S, x, r : integer;
BEGIN
   n:=252; x:=n; S:=0;
     while n>0 do
            begin
              r:=n mod 10;
              n:=n div 10;
              S:=S*10 +r;
           end;
      r:=x-r;
    writeln (r);
END.
Тогда результатом работы этой программы является ...

Одномерный массив N целых чисел заполняется так:
   for i:=1 to N do
        A[i]:=i;

Данный массив обрабатывается с помощью следующего фрагмента программы:
   for i:=1 to N do
        A[N-i+1]:=A[i];

Найдите значение A[1]+A[N], если N=20.

Одномерный массив N целых чисел заполняется так:
    А[1]:=5; q:=-2;
    for i:=2 to N do
        A[i]:=A[i-1]*q;

Данный массив обрабатывается с помощью следующего фрагмента программы:
   for i:=1 to N-1 do if A[i]<0
        then A[i]:= -A[i];

Найдите значение A[1]+A[N], если N=6.

Одномерный массив N целых чисел заполняется так:
    А[1]:=5; d:=3;
    for i:=2 to N do
        A[i]:=A[i-1]+d;

Данный массив обрабатывается с помощью следующего фрагмента программы:
   r:=A[1];
   for i:=1 to N-1 do
        A[i]:=A[i+1];
        A[N]:=r;

Найдите значение A[1]+A[N], если N=7.

Одномерный массив N целых чисел заполняется так:
    А[0]:=0; А[1]:=1;
    for i:=2 to N do
        A[i]:=A[i-1]+ A[i-2];

Данный массив обрабатывается с помощью следующего фрагмента программы:
   for i:=0 to N do if A[i] mod 2=0
        then A[i]:=A[i]*2;

Найдите значение A[1]*A[N-1], если N=7.