Какое значение получит переменная a после выполнения такой программы? var a: byte; proc p1(var t: byte); begin t:= t*2 end; proc p2(var k: byte); var a: byte; begin a:= 1; k:= 5; p1(k); end; begin a:= 10; p2(a); end.

Правильный ответ:

• # Какой метод сортировки реализует этот фрагмент программы? for i:= 1 to n-1 do begin x:= a[i+1]; l:= 1; r:= i; while l<=r do begin s:= (l+r)div 2; if a[s]<x then l:= s+1 else r:= s-1; end; for j:= i downto 0 do a[j]:= a[j+1]; a[l]:= x; end;
• # Какие из приведенных ниже последовательностей строк и символов упорядочены по убыванию?
• # Чтобы иметь возможность записывать информацию в текстовый файл, его нужно открыть при помощи команд
• # Сколько полей содержится в записи man? type data = record day: 1..31; month: 1..12; year: 1900.. 2100; end; man = record name: string[20]; date_birth: data; case citizen: boolean of true: (birth_place: string[20]); false: (country: string[20]; date_came: data); end;
• # Какие вызовы процедуры procedure p(var a: byte; const b: char; x: real); являются неправильными с точки зрения компилятора языка Pascal?