Var a:integer; begin readln(a) if a:=1 then writeln('1 - один'); if a:=2 then writeln('2 - два'); if a:=3 then writeln('3 - три'); if a:=4 then writeln('4 - четыре'); . . .{по аналогии} end. 2)Абсолятно то же самое что и в предыдущем номере, просто тепрь писать 1 - понедельник, 2 - вторник... 3)var a:integer; if a:=1 then writeln('Sharik'); if a:=2 then writeln('kot'); if a:=3 then writeln('Fedor'); if a:=4 them writeln('Pechkin'); end. 4) и 6) выполняются по аналогии. Если не понимаешь, я объясню в комментариях.
Переведем Гбайты в Биты. Так как в одном символе 8 бит.
12 Гб - 103079215104 Бит
Дальше умножаем страницы, строки, и символы на друг друга. И делим на 12 Гб которые мы перевели в Бит
103079215104:(8*60*45*1700)=2807,1 книг