Укажите, какой фрагмент программы на Паскале проверяет - простое ли число , введенное с клавиатуры:

Правильный ответ:

• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, значение переменной будет равно: … n:=3; s:=0; k:=1; for i:=1 to n do for j:=1 to n do begin x[i,j]:=k; k:=k+1; end for i:=1 to n do for j:=1 to n do if (i<=n-j+1) then s:=s+x[i,j]; …
• # Укажите фрагмент программы, выполнение которой приведет к такому заполнению квадратного массива: \begin{matrix} 1&1&1&1&1&1&1&1&1\\ 0&1&1&1&1&1&1&1&0\\ 0&0&1&1&1&1&1&0&0\\ 0&0&0&1&1&1&0&0&0\\ 0&0&0&0&1&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0\\ 0&0&0&0&0&0&0&0&0 \end{matrix}
• # Что выведется на экран в результате работы программы, фрагмент которой приведен ниже: … stroka:='(5+y)*(x-4)'; n:=length (stroka); s:=0; for i:=1 to n do begin a[i]:=copy(stroka, i, 1); flag[i]:=0; end; for i:=1 to n do begin if a[i]="(" then flag [i]:=1; if a[i]=")" then flag [i]:=-1; end; for i:=1 to n do begin s:=s+flag [i]; if s<0 then x:=1; end; if (s=0) and (x=0) then writeln ('верно') else writeln ('неверно'); …
• # Установите, как будет заполнен двумерный массив в результате выполнения программы на Паскале, фрагмент которой приведен ниже: … x:=1; for j:=1 to n do for i:=1 to j do begin a [i, j-i+1]:=x; x:=x+1; end; …
• # Какие значения примут элементы первой строки двумерного массива, размерностью 5x5, в результате выполнения программы на Паскале, фрагмент которй приведен ниже (введите числа через пробел) … for k:=1 to (n div 2 +1) do for i:=k to n-k+1 do for j:=k to n-k+1 do a[i,j]:= k; …