База ответов ИНТУИТ

Решение олимпиадных задач по информатике

<<- Назад к вопросам

Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. Для вывода на экран "Треугольника Паскаля" в программу дописали фрагмент:

…for i:=1 to n do begin for j:=1 to ? do write (a[i,j]); writeln; end;…

Какое значение необходимо написать в заголовке внутреннего цикла вместо знака вопроса?

(Отметьте один правильный вариант ответа.)

Варианты ответа
n
2*n-1
n-i+1(Верный ответ)
2*n
Похожие вопросы
Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. В какой части этого массива находится "Треугольник Паскаля"?

Программа на Паскале, фрагмент которой приведен ниже, выводит индексы положительных элементов двумерного массива, произведение индексов которых четно. Какое логическое выражение вместо вопросительного знака в ветвлении необходимо указать:

…for i:=1 to n dofor j:=1 to m doif ? then writeln (i,j);…

В каком направлении идет заполнение двумерного массива в 1-ом вложенном цикле по i, в результате выполнения программы на Паскале, фрагмент которой приведен ниже:

… x:=1;for k:=1 to n div 2 do begin for i:=k to n-k do  begin a[k,i]:=x; x:=x+1; end; for i:=k to n-k do  begin a[i,n-k+1]:=x; x:=x+1; end; for i:=k to n-k do  begin a[n-k+1,n-i+1]:=x; x:=x+1; end; for i:=k to n-k do  begin a[n-i+1,k]:=x; x:=x+1; end;end; …

В каком направлении идет заполнение двумерного массива в 2-ом вложенном цикле по i, в результате выполнения программы на Паскале, фрагмент которой приведен ниже:

… x:=1;for k:=1 to n div 2 do begin for i:=k to n-k do  begin a[k,i]:=x; x:=x+1; end; for i:=k to n-k do  begin a[i,n-k+1]:=x; x:=x+1; end; for i:=k to n-k do  begin a[n-k+1,n-i+1]:=x; x:=x+1; end; for i:=k to n-k do  begin a[n-i+1,k]:=x; x:=x+1; end;end; …

В каком направлении идет заполнение двумерного массива в 3-ем вложенном цикле по i, в результате выполнения программы на Паскале, фрагмент которой приведен ниже:

… x:=1;for k:=1 to n div 2 do begin for i:=k to n-k do  begin a[k,i]:=x; x:=x+1; end; for i:=k to n-k do  begin a[i,n-k+1]:=x; x:=x+1; end; for i:=k to n-k do  begin a[n-k+1,n-i+1]:=x; x:=x+1; end; for i:=k to n-k do  begin a[n-i+1,k]:=x; x:=x+1; end;end; …

Приведенный ниже фрагмент программы на Паскале реализует алгоритм заполнения Арифметического квадрата.

…for i:=1 to n do for j:=1 to n do begin a[i,j]:=1; a[i,j]:=1; end;for i:=2 to n do for j:=2 to n do a[i,j]:=a[i-1,j]+a[i,j-1];…

Что в нем стоит изменить?

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}.

… for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …
Введите результат вывода программы без пробелов:

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

… for i:=1 to (?) dofor j:=1 to i do x[i,j]:=1;…

Укажите выражение, которое должно стоять вместо вопросительного знака в заголовке цикла, чтобы квадратный массив заполнится таким образом:

\begin{matrix}1&0&0&0&0&0&0&0&0\\1&1&0&0&0&0&0&0&0\\1&1&1&0&0&0&0&0&0\\1&1&1&1&0&0&0&0&0\\1&1&1&1&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}
В переменную n с клавиатуры вводится значение n=137. Предскажите результат работы программы (что выведется на экран):
…k:=0;for i:=2 to n-1 do if n mod i=0 then k:=k+1;if k=2 then writeln ('простое')else writeln ('составное');…

В переменную n с клавиатуры вводится значение (n=6). Предскажите результат работы программы (что выведется на экран):

…k:=0;for i:=1 to n-1 do if n mod i=0 then k:=k+i;if k=n then writeln ('совершенное')else writeln ('несовершенное');…