Результат работы программы на Паскале, фрагмент которой приведен ниже:
…a:=100; n:=5; i:=0;while (a<>0) dobegini:=i+1;write (a mod n);a:=a div n;end; …
Результат работы программы на Паскале, фрагмент которой приведен ниже:
…a:=100; n:=5; i:=0;while (a<>0) dobegini:=i+1;write (a mod n);a:=a div n;end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива А={1, 2, 3}.
… for i:=1 to n dofor j:=i to n do writeln (A[i], A[j]); …Введите результат вывода программы без пробелов:
Для организации перевода числа а из десятичной в -ричную систему счисления, программа на Паскале (начальный фрагмент которой приведен ниже)
…readln (a, n); i:=0;while (a<>0) dobegini:=i+1;x[i]:=a mod n;a:=a div n;end; …
должна быть продолжена так:
Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже:
… for i:=1 to 5 do a[i]:=i;m:=0;for i:=1 to 5 do if a[i]<m then m:=a[i];…
Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже:
… for i:=1 to 5 do a[i]:=i-6;m:=a[1];for i:=1 to 5 do if a[i]>m then a[i]:=m;…
Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже:
… for i:=1 to 5 do a[i]:=i-6;m:=0;for i:=1 to 5 do if a[i]>m then m:=a[i];…
Определите содержимое переменной в результате работы программы на Паскале, фрагмент которой приведен ниже:
… for i:=1 to 5 do a[i]:=i-5;m:=a[1];for i:=1 to 5 do if a[i]<m then m:=a[i];…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет выборка элементов из исходного массива . На печать выйдет:
… for i:=1 to n dofor j:=1 to n do if i<>j then write (A[i], A[j]);…
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет вывод ряда чисел. Укажите этот ряд чисел (через пробел):
. . . n:=5;for i:=1 to n do begin x[i]:=n-i+1; y[i]:=i; end;for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin g:=x[i]; x[i]:= x[i+1]; x[i+1]:=g; g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g; end;for i:=1 to n do write (x[i]+y[i]); . . .
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, буден найдено:
…d:=0;for j:=1 to n dobeginm[j]:=x[1,j];for i:=1 to n dobeginif x[i,j]>m[j] then m[j]:=x[i,j];end;d:=d+m[j]; end…