Главная /
Решение олимпиадных задач по информатике /
[формула] будет содержать: … j:=1; k:=0; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив
вводятся
натуральных чисел. Массив
будет содержать:
Правильный ответ:
индексы четных элементов массива
х
четные элементы массива
х
числа натурального ряда от 1 до
n включительно
числа натурального ряда от 1 до
j включительно Сложность вопроса
74
Сложность курса: Решение олимпиадных задач по информатике
77
Оценить вопрос
Комментарии:
Аноним
Зачёт в студне отлично. Бегу в бар отмечать зачёт по тестам
18 май 2020
Аноним
Это очень намудрённый тест интуит.
07 фев 2016
Другие ответы на вопросы из темы программирование интуит.
- # Для нахождения площади треугольника используют:
-
#
Найдите ошибки в приведенной ниже программе на Паскале, которая выполняет перевод числа 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.
-
#
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная
будет содержать:
…
n:=8; k:=n div 2;
for i:=1 to n do
begin
x[i]:=i; j:=i div 2 + 1; y[j]:=j*2;
end;
for i:=1 to k do s:=s+x[y[i]];
…
- # В программе на Паскале все значения элементов двумерного массива равны "2". Что будет выведено на экран монитора в результате выполнения программы, фрагмент которой приведен ниже: … n:=5; x[2,3]:=5; x[4,1]:=1; max:=x[1,1]; min:=x[1,1]; for i:=1 to n do for j:=1 to n do if x[i,j]>max then max:=x[i,j] else min:=x[i,j]; writeln (max, ' ', min); …
- # В результате выполнения программы на Паскале, фрагмент которой приведен ниже заполняется квадратный массив: … for i:=1 to (?) do for 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}
-ричной системы счисления (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.
будет содержать:
…
n:=8; k:=n div 2;
for i:=1 to n do
begin
x[i]:=i; j:=i div 2 + 1; y[j]:=j*2;
end;
for i:=1 to k do s:=s+x[y[i]];
…