Чему будет равно значение переменной c в результате выполнения фрагмента программы a: =125; b: =25; c: =12; if a div 25=0 then if a mod 12=0 then c: =b div (a mod c) else c: =a div (b mod c); 1) 0; 2) 1; 3) 12; 4) 125.

Сначала переменные a,b,c получат значения. значением условного выражения (a div 25) = 0 будет false (ложно), поскольку 125 / 5 = 5, а не 0. следовательно, в первом условном операторе должен выполняться код в блоке, стоящий после ключевого слова else, если таковое имеется. рассмотрим фрагмент программы, как он записан: if a div 25=0 then if a mod 12=0 then c: =b div (a mod c) else c: =a div (b mod c); отступы придумали не зря: они понимать логику программы.мы видим два if, два then и только одно else. какому же if оно сопоставляется? другими словами, какая из двух следующих конструкций правильная? if a div 25=0 then     if a mod 12=0 then c: =b div (a mod c) else c: =a div (b mod c); if a div 25=0 then     if a mod 12=0 then c: =b div (a mod c) else c: =a div (b mod c); правила языка паскаль легко позволяют разрешить проблему: ключевое слово else связывается с ближайшим к нему предшествующим if, не имеющим else.следовательно, верно первое из толкований, т.е. первый if ветки с else не имеет. поэтому значение переменной с не изменится, оставшись равным 12.ответ: 12замечание. а как сделать, чтобы выполнялась логика второй конструкции? просто: использовать блок. if a div 25=0 then     begin if a mod 12=0 then c: =b div (a mod c) end else c: =a div (b mod c);

Const   n=20; type   v=array[1..n] of integer;   w=array[1..n div 2] of integer; var   a: v; procedure formw(var pa: w; podd: boolean); { при podd=true формируется массив из нечетных элементов,   при false - из четных } var   i,k: integer; begin   k: =0;   if podd then i: =1 else i: =2;   while i< =n do begin       inc(k); pa[k]: =a[i]; i: =i+2   end end;   var   b,c: w;   i: integer; begin   randomize;   writeln('элементы исходного массива');   for i: =1 to n do   begin a[i]: =random(50); write(a[i]: 3) end;   writeln;   formw(b,false);   writeln('массив из элементов с четными номерми');   for i: =1 to (n div 2) do write(b[i]: 3);   writeln;   formw(c,true);   writeln('массив из элементов с нечетными номерми');   for i: =1 to (n div 2) do write(c[i]: 3);   writeln end. тестовое решение: элементы исходного массива   11 37 22 43 44 14  3 29  2 25  0 30 37 44 24 45 34 30 39 42 массив из элементов с четными номерми   37 43 14 29 25 30 44 45 30 42 массив из элементов с нечетными номерми   11 22 44  3  2  0 37 24 34 39

1) const n=5; var a: array[1..n,1..n]of integer; i,j: integer;       begin                for i: =1 to n do                        begin                                      writeln;                                                 for j: =1 to n do                                                          begin                                                                    a[i,j]: =i+j;                                                                     write(a[i,j]: 4);                                                           end;                           end;       end.2)        const           n=4; m=5;     vara: array[1..n,1..m]of integer; i,j,max: integer; begin    for i: =1 to n do          begin              writeln;               for j: =1 to m do                  begin                      a[i,j]: =random(100)-50;                       write(a[i,j]: 4);                   end;             end; max: =a[1,1]; for i: =1 to n do    for j: =1 to m do          if a[i,j]> max then              max: =a[i,j]; writeln; writeln(max); for i: =1 to n do      for j: =1 to m do            if (a[i,j]< 0)and(a[i,j]> -5)then                a[i,j]: =max; writeln; for i: =1 to n do    begin    writeln;         for j: =1 to m do              write(a[i,j]: 4);     end; end.