Линейный;

5) комбинация развилки и цикла.

Вопрос 65. После исполнения фрагмента программы, изображенного на блок-схеме,

при A = 5, B = 4 значение X будет равно

1) 20;

2) 9;

3) 5;

4) 4;

5) 1.

Вопрос 66. В приведенном фрагменте программы (N типа LongInt, N > 0)

P: = 1;

While P < = N Do

Begin

Left: = N Div (P * 10) * (P * 10);

Right: = N Mod P;

K: = ((N Mod (P * 10) Div P + 1) Mod 10) * P;

N: = Left + K + Right; P: = P * 10

End;

натуральное число N изменяется по следующему правилу

1) не изменяется;

2) в каждый разряд прибавляется 1;

3) из каждого разряда вычитается 1;

4) в каждый разряд прибавляется 1, если значение в разряде — не девять, иначе заменяется на нуль;

5) каждая девятка в десятичной записи числа заменяется на нуль.

Вопрос 67. Цикл с предусловием выполняется так:

1) выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения выполнения цикла;

2) изменяется параметр цикла, проверяется условие продолжения выполнения цикла, выполняется тело цикла;

3) проверяется условие продолжения выполнения цикла, выполняется тело цикла;

4) тело цикла выполняется N раз (N — натуральное);

5) определяется, сколько раз должен быть выполнен цикл, и далее цикл с предусловием сводится к циклу с параметром.

Вопрос 68. В текстовом файле каждая строка заканчивается

1) числами 10 и 13; 2) символами с кодами 10 и 13; 3) символом с кодом 13; 4) числом 0; 5) символом с кодом 10.

Вопрос 69. Процедуры ReadLn и WriteLn можно использовать при работе с

1) типизированными файлами;

2) нетипизированными файлами;

3) типизированными и нетипизированными файлами;

Текстовыми файлами;

5) любыми файлами.

Вопрос 70. Значение выражения

Ord(x > y) + Ord(Ord(z = 'F'))

при x = 7, y = 0, z = 'F' равно

1) TRUE;

2) FALSE;

3) 0;

4) 1;

5) 2.

Вопрос 71. Идентификатор в Turbo Pascal не может начинаться с

1) латинской буквы;

2) заглавной латинской буквы;

Цифры;

4) знака подчёркивания;

5) латинской буквы, а затем знака подчёркивания.

Вопрос 72. В приведенном фрагменте программы (First — ссылка на первый элемент списка; список объявлен следующим образом: Type SS = ^List; List = Record A: LongInt; Next: SS End;)

P: = First; S: = 0; While Not (P = Nil) Do Begin S: = S + 1; P: = P^.Next End;

определяется

1) первый элемент списка;

2) сумма элементов списка;

3) сумма первого и последнего элементов списка;