Записать краткое имя файлов

Гимн школы, Школа, КЛЮЧИ, Turbo Pascal

Объяснение:

Как я знаю краткое имя файла это имя без расширения

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.