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

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

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

• # В результате выполнения программы, фрагмент которой приведен ниже … n=5; for i:=0 to n-1 do write (n-i); … выводится ряд чисел:
• # В переменную 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 ('несовершенное'); …
• # В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов (пазмещения без повторений) из исходного массива . Какой логический знак должен стоять вместо знака вопроса в логическом выражении: … for i:=1 to n do for j:=1 to n do if i ? j then write (A[i], A[j],','); …
• # Решение задачи: "В игре имеется набор фишек, достоинством . Требуется в конце игры представить количество набранных очков набором фишек" возможно методом:
• # Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа a из -ричной системы счисления (b<10) в 10-тичную: var a: string; b, i, st, n, s, x, k:integer; begin readln (a); readln(b); n:=length(a); s:=0; for i:=1 to n do begin val (copy(a,i,1),x,k); s:=s+x*st; st:=st*b; end; writeln (s); end.