Сколько полей содержится в записи person?

type data = record day: 1..31;                         month: 1..12;                         year: 1900.. 2100;                  end;           person = record name: string[20];                           date_birth: data;                         case family_status: char of                                  'm': (wedding_date: data;                                        spouse_name: string[20]);                                  's': (church_celibate: boolean);                                  'd': (date_divorce: data;);                                  'w': (date_of_spouse_death: data);                     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;

Сколько полей содержится в записи employee?

type data = record day: 1..31;                         month: 1..12;                         year: 1900.. 2100;                  end;           employee = record name: string[20];                             date_entering: data;                           case trade_union: boolean of                                       true: (date_enter: data;                                              leader: boolean);                                      false: (manager: boolean);                      end;

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?

var a: integer;    r1: record a: byte;               ...        end;    r2: record a: shortint;               ...        end;begin a:= 0; with r1 do   begin   r2.a:= -10;   with r2 do    begin a:= 100;          r1.a:= -a;    end  end; a:= 100;end.

Какое значение будет храниться в поле a записи r2 после выполнения следующего блока?

var a: integer;    r1: record a: longint;               ...        end;    r2: record a: byte;               ...        end;begin a:= 0; with r2 do   begin   a:= 10;   with r1 do    begin a:= -r2.a;          r2.a:= 100;    end;   a:= r1.a;  end; a:= -100;end.

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?

var a: longint;    r1: record a: word;               ...        end;    r2: record a: integer;               ...        end;begin a:= 0; with r1 do   begin   a:= 1000;   with r2 do    begin a:= 1000;          r1.a:= -a;    end;   r2.a:= -100;  end; a:= 100;end.

Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Олегов Олег Олегович 1962' при помощи команды

readln(f,s,k); {s: string[22], k:byte =0}

Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Петров Петр Петрович 1956' при помощи команды

readln(f,s,k); {s: string[22], k:shortint =0}

Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Иванов Иван Иванович 1945' при помощи команды

readln(f,s,k); {s: string[22], k:byte =0}

Какой оператор нужно вставить вместо [???], чтобы приведенный ниже отрывок программы правильно создавал двусвязный линейный список, получая значения из непустого текстового файла f?

{type ssylka = ^spisok;      spisok = record znach: integer;                      next,prev: ssylka               end;var head,p: ssylka;}new(head);read(f,head^.znach);head^.prev:= nil;p:= head;while not eof(f) do   begin    new(p^.next);    read(f,p^.next^.znach);    [???];   end;p^.next:= nil;p:= tail;

Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?

{b: string; p: ^word}b:= ‘ААББВВГГДД’;p:= addr(b[7]);a:= p^;