В программе имеется следующее описание: const n = 5; var mas: array [1..n,1..n] of integer; i, j, с: integer. После выполнения операторов:
Вопрос посетителя
Var F : File Of Integer; X, Y : Integer:
Пусть файл содержит три элемента: 2, -4 и 6. После выполнения операторов:
Reset(F); Y:= 0;
While not eof(F) do
begin read (F,X);
if X > 0 then Y:= Y+X;
end;
переменная Y примет значение _ (ответ введите цифрами)
(*ответ*) 8
Var F1,F2: Text; ST: String;
Пусть содержимое файла F1:
Анна [13] [10]
Владимир [13] [10]
Александр [13] [10]
После выполнения операторов:
Reset (F1);Rewrite (F2);
While Not Eof(F1) Do
Begin Readln(F1,ST);
If ST[1]=’А’ Then Writeln(F2,ST);
End;
(*ответ*) в файл F2 будут записаны строки: Анна и Александр
на экран будет выведено:13 10
на экран будет выведено содержимое переменных F2 и ST
в файл F2 будет записано: А
VAR m : SET OF CHAR; i, k, n : INTEGER;
st : STRING;
BEGIN
k := 0; m := [‘а,’е’,’и’,’о’,’ы’,’э’,’я’,э’,’ю’];
st:=’академия‘;
n:= LENGTH (st);
FOR i := 1 TO n DO IF st[i] IN m THEN k := k +1;
WRITELN(k);
END.
В результате выполнения программы значение k равно_(ответ введите цифрами)
(*ответ*) 5
VAR m : SET OF INTEGER; n : INTEGER;
BEGIN
m := [ ];
n:= 1;
WHILE n <>9999 DO
BEGIN
READLN (n);
m : = m+[n];
END;
END.
В результате выполнения программы будет
(*ответ*) сформировано множество целых чисел
найдена сумма введенных чисел
определено, сколько введенных чисел равно 9999
определено количество вводимых чисел
VAR n : SET OF 0 .. 9; i, k : INTEGER;
BEGIN
k := 0; n := [1, 2, 5, 7];
FOR i := 1 TO 7 DO IF i IN n THEN k := k +1;
WRITELN(k);
END.
В результате выполнения программы значение k равно_(ответ введите цифрами)
(*ответ*) 4
Var p, q : ^integer; r : ^char;
Допустимые операции в программе – это
(*ответ*) p := q;
(*ответ*) p := nil;
(*ответ*) if q <> p then p^ := 0
p^ := nil;
if q <> nil then r^ := nil;
if q = p then write (p)
Var a, b : ^real;
Допустимые операции в программе – это
(*ответ*) a^ :=b^;
(*ответ*) a^ := a^ + sqr(b^);
(*ответ*) a := b;
a := b^;
a^ := b;
b := (a+7)/2;
В последовательности операторов
S := 5; while S > 0.001 do S := S+1;
тело цикла будет выполняться
(*ответ*) бесконечное число раз
10 раз
не выполнится ни разу
один раз
В приведенном фрагменте:
for i := 1 to 3 do
for j := 1 to 4 do read (a[j , i])
элементы массива вводятся
(*ответ*) по столбцам
по строкам
неправильно
в произвольном порядке
В программе имеется следующее описание:
const n = 5; type mas: array [1..n,1..n] of integer; var A,B,C: mas; i, j: integer.
После выполнения операторов:
for i:= 1 to n do
for j:= 1 to n do
C[i,j]:=A[i,j]+B[i,j];
write (C[i,j]);
будет напечатано
(*ответ*) элемент матрицы С[5,5]
все элементы матрицы С
общая сумма элементов матриц A и B
сумма элементов каждой строки матриц A и B
В программе имеется следующее описание:
const n = 5; var mas: array [1..n,1..n] of integer; i, j, с: integer.
После выполнения операторов:
for i:= 1 to n do
begin
c:= mas[i, 1]; mas[i, 1]:= mas[i, n]; mas[i, n]:= c;
end;
(*ответ*) элементы первого и пятого столбцов матрицы поменяются местами
элементы первой и пятой строки матрицы поменяются местами
все элементы матрицы получат значение переменной с
первый и последний элементы получат значение переменной с
Ответ эксперта
Var F : File Of Integer; X, Y : Integer:
Пусть файл содержит три элемента: 2, -4 и 6. После выполнения операторов:
Reset(F); Y:= 0;
While not eof(F) do
begin read (F,X);
if X > 0 then Y:= Y+X;
end;
переменная Y примет значение _ (ответ введите цифрами)
(*ответ*) 8
Var F1,F2: Text; ST: String;
Пусть содержимое файла F1:
Анна [13] [10]
Владимир [13] [10]
Александр [13] [10]
После выполнения операторов:
Reset (F1);Rewrite (F2);
While Not Eof(F1) Do
Begin Readln(F1,ST);
If ST[1]=’А’ Then Writeln(F2,ST);
End;
(*ответ*) в файл F2 будут записаны строки: Анна и Александр
на экран будет выведено:13 10
на экран будет выведено содержимое переменных F2 и ST
в файл F2 будет записано: А
VAR m : SET OF CHAR; i, k, n : INTEGER;
st : STRING;
BEGIN
k := 0; m := [‘а,’е’,’и’,’о’,’ы’,’э’,’я’,э’,’ю’];
st:=’академия‘;
n:= LENGTH (st);
FOR i := 1 TO n DO IF st[i] IN m THEN k := k +1;
WRITELN(k);
END.
В результате выполнения программы значение k равно_(ответ введите цифрами)
(*ответ*) 5
VAR m : SET OF INTEGER; n : INTEGER;
BEGIN
m := [ ];
n:= 1;
WHILE n <>9999 DO
BEGIN
READLN (n);
m : = m+[n];
END;
END.
В результате выполнения программы будет
(*ответ*) сформировано множество целых чисел
найдена сумма введенных чисел
определено, сколько введенных чисел равно 9999
определено количество вводимых чисел
VAR n : SET OF 0 .. 9; i, k : INTEGER;
BEGIN
k := 0; n := [1, 2, 5, 7];
FOR i := 1 TO 7 DO IF i IN n THEN k := k +1;
WRITELN(k);
END.
В результате выполнения программы значение k равно_(ответ введите цифрами)
(*ответ*) 4
Var p, q : ^integer; r : ^char;
Допустимые операции в программе – это
(*ответ*) p := q;
(*ответ*) p := nil;
(*ответ*) if q <> p then p^ := 0
p^ := nil;
if q <> nil then r^ := nil;
if q = p then write (p)
Var a, b : ^real;
Допустимые операции в программе – это
(*ответ*) a^ :=b^;
(*ответ*) a^ := a^ + sqr(b^);
(*ответ*) a := b;
a := b^;
a^ := b;
b := (a+7)/2;
В последовательности операторов
S := 5; while S > 0.001 do S := S+1;
тело цикла будет выполняться
(*ответ*) бесконечное число раз
10 раз
не выполнится ни разу
один раз
В приведенном фрагменте:
for i := 1 to 3 do
for j := 1 to 4 do read (a[j , i])
элементы массива вводятся
(*ответ*) по столбцам
по строкам
неправильно
в произвольном порядке
В программе имеется следующее описание:
const n = 5; type mas: array [1..n,1..n] of integer; var A,B,C: mas; i, j: integer.
После выполнения операторов:
for i:= 1 to n do
for j:= 1 to n do
C[i,j]:=A[i,j]+B[i,j];
write (C[i,j]);
будет напечатано
(*ответ*) элемент матрицы С[5,5]
все элементы матрицы С
общая сумма элементов матриц A и B
сумма элементов каждой строки матриц A и B
В программе имеется следующее описание:
const n = 5; var mas: array [1..n,1..n] of integer; i, j, с: integer.
После выполнения операторов:
for i:= 1 to n do
begin
c:= mas[i, 1]; mas[i, 1]:= mas[i, n]; mas[i, n]:= c;
end;
(*ответ*) элементы первого и пятого столбцов матрицы поменяются местами
элементы первой и пятой строки матрицы поменяются местами
все элементы матрицы получат значение переменной с
первый и последний элементы получат значение переменной с
