Каков будет результат выполнения программы, если с клавиатуры вводится слово "Ротор":

var a:string; k,n,i: integer; begin readln (a); k:=0; n:=length(a); for i:=1 to n do if copy(a,i,1) <> copy(a,n-i+1,1) then k:=1; writeln (k); end.

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

• # В результате выполнения программы, фрагмент которой приведен ниже … n=5; for i:=n-1 downto 0 do write (n-i); … выводится ряд чисел:
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива, соответствующая такому основному типу комбинаторных групп: ... for i:=1 to n-1 do for j:=i+1 to n do writeln (A[i], A[j]); …
• # Определите результат работы фрагмента программы на Паскале: … for i:=1 to 10 do a[i]:=i-1; z:=0; d:=1; h:=1; for i:=1 to 10 do begin if i mod 2 <> 0 then z:=z+a[i]; if a[i] mod 3 = 0 then d:=d*a[i]; if a[i] <= 0 then h:=h+1; end; write (z, ' ', d, ' ', h); …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив Х вводятся числа: 1, 8, 12, 3, 5, 4. Сумма элементов массива У будет равна: … j:=1; k:=0; n:=6; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; end; …
• # Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. Для вывода на экран "Треугольника Паскаля" в программу дописали фрагмент: … for i:=1 to n do begin for j:=1 to ? do write (a[i,j]); writeln; end; … Какое значение необходимо написать в заголовке внутреннего цикла вместо знака вопроса?