Предскажите результат выполнения программы на Паскале: var a: string; b, i, st, n, s, x, k:integer; begin a:='25'; b:=5; s:=0; st:=1; n:=length(a); for i:=1 to n do begin val (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b; end; writeln (s); end.

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

• # Решение задачи: "Необходимо представить число 40 в виде суммы неповторяющихся слагаемых (одинаковые по значению, противоположные по знаку слагаемые считаются разными" возможно методом:
• # Определите результат работы фрагмента программы на Паскале: … for i:=1 to 10 do a[i]:=i-1; z:=0; d:=0; 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); …
• # Предскажите результат выполнения программы на Паскале (фрагмент ниже): … a:='1234'; n:=length(a); while (n>1) do begin s:=0; for i:=1 to n do begin val (copy(a,i,1),x,k); s:=s+x; end; str(s,a); n:=length(a); end; writeln (s); …
• # Укажите фрагмент программы, выполнение которой приведет к такому заполнению квадратного массива: \begin{matrix} 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&1&1&1&1&1\\ 0&0&0&0&0&1&1&1&1\\ 0&0&0&0&0&0&1&1&1\\ 0&0&0&0&0&0&0&1&1\\ 0&0&0&0&0&0&0&0&1 \end{matrix}
• # Предположим, что есть программа на Паскале, реализующая заполнение Арифметического квадрата порядка nxn. Для вывода на экран "Треугольника Паскаля" в программу дописали фрагмент: … for i:=1 to n do begin for j:=1 to ? do write (a[i,j]); writeln; end; … Какое значение необходимо написать в заголовке внутреннего цикла вместо знака вопроса?