Какая из приведенных ниже программ наполняет заданное множество целыми числами, принадлежащими диапазону от 0 до 50, содержащимися в текстовом файле, и считает их количество?

1) ни одна из программ; 2) программа 1; 3) программа 2; 4) программа 3.

35. В текстовом файле записаны целые числа из диапазона от 1000 до 10000 по 10 чисел в каждой строке. В следующей программе должно выводиться в качестве результата число, равное одному проценту от суммы всех чисел, хранящихся в файле. Определить результат работы программы, если в файле 1000 строк, содержащих только числа 1000.

Var f:text; i, s, a  : integer; p: real;

begin

assign (f, "in.txt"); reset (f);

while not eof (f) do

for i:=l to 10 do

begin

read (f, a);

s:= s+a;

end;

p:=s/100; writeln (p:9:2)

end.

1) правильный результат не может быть вычислен; 2) программа зациклится;

3) 0.00;                  4) результат не может быть выведен в указанном формате.

36. Результат вычисления какого из приведенных ниже выражений является ре­шением следующей задачи: для целого n, где 100 < n < 1000, определить символьный вид третьей справа цифры в записи числа:

1) chr(n/100);                                            2) chr((n/100)*10);

3) (n div 1000 mod 10);                                      4)chr((n mod 1000) div 100);

37. Какое из приведенных ниже выражений тождественно выражению «a or b»:

1) not (not a and not b and (c or not c)); 2) not (not a or not b);

3) (not a or b) and (b and not b);              4) (a>b) or (a<b).

38. Определить результат вычисления функции akk(1,k); если задано ее описание:

Function akk (m, n: integer): integer;

begin

if m=0

then akk:=n+l

else

if n=0

then akk:=akk(m-1,1)

else akk:=akk(m-1, akk(m,n-1));

end;

1) 2*k;                  2) k+3;                  3) 2*k=3;             4) k+2.

Вычислить значение выражения

(trunc (r) >= d) and (с > "a") and (b < (ord (c) =0)) при с = "с", d=0, r=0.5, если это возможно.

1) в записи выражения есть ошибка; 2) true;      3) false;     4) 4. 0.

Определить, какая задача решается с помощью данной последовательности операторов

m:=а[1];

for i:=l to n do

if a[i] > m then a[i]:= m else m:= a[i];

1) каждому элементу массива а присваивается значение, равное минималь­ному из значений всех элементов исходного массива, предшествующих данному элементу, и значения самого этого элемента.

2) ищется максимальный элемент массива;

3) меняются местами минимальный и максимальный элементы массива;

4) выполняется сортировка элементов массива в порядке возрастания.

41. В некоторой программе описаны переменные:

Var i:integer; r:real; c:char;

Какая из Процедур или функций, заголовки которых приведены ниже, может быть вызвана из этой программы с помощью оператора с:= f(i, 5, r, 5*i, с, «r»);

1) function f(var a: integer; b: integer; var с: real; d: real; var e: char; g: char);

2) function f(var a: integer; b: integer; var c: real; d: real; var e: char; g: char): char;

3) Procedure f(var a: integer; b: integer; var c: real; d: real; var e: char; g: char);

4) function f(a: integer; var b: integer; var c: char; d: real; var e: char; g: char): char;