Нужна по программированию ООП. Вопрос Какие поля объекта являются виртуальными
[a] Все поля объекта
[б] Все поля динамического объекта
[в] Поля-указатели
[г] Поля от объектов-предков
[д] Понятие неприменимо

Вопрос Инкапсуляция - это
[a] объединение описания объектов
[б] свойство наследования признаков объектов
[в] использование наследования при описании методов
[г] объединение полей и методов их обработки в одном описании
[д] форма реализации свойства полиморфизма объектов

Вопрос Укажите какой структуре по описанию подобен объект
[a] Массив
[б] Запись
[в] Множество
[г] Файл
[д] Подобие отсутствует

20:02-4:11=15:51
ответ: 4 ч 11 мин.

Более подробно: 20:02 - если не учитывать, что в часе 60 минут, то предыдущее "счастливое" время - 19:91, но это не подходит, т.к. часы не могут показывать столько, дальше аналогично:
18:81 - не подходит;
17:71 - не подходит;
16:61 - не подходит;
15:51 - подходит, значит, это - предыдущее "счастливое" время.
Чтобы найти, сколько времени с 15:51 до 20:02, то есть найти, насколько 20:02 больше, чем 15:51, нужно из большего отнять меньшее: 20:02-15:51=4:11, то есть 4 часа 11 минут.
ответ: 4 ч 11 мин.

const alphabet="";
var FileName:string

procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
    assign(f,FileName);
    reset(f);
    while not eof (f) do begin { пока не конец файла }
        readln (f, s);
        for i:= 1 to length(s) do begin
          k:=pos(s[i], alphabet);
            if k=1 then k=length(alphabet); {это приколы изза я}
            if k>1 then s[i]:=alphabet[k-1];
      end;
        writeln(s);
    end;
    close(f);
end;

Begin
    read(FileName);
    ReadFile;
    readln;
End.