Кодировка какая?
Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта
Строка: 60 символов по 16 бит = 960 бит
60 символов по 2 байта = 120 байт
Страница: 40 строк по 960 бит = 38400 бит
40 строк по 120 байт 4800 байт
Учебник: 288 страниц по 38400 бит = 11059200 бит
288 страниц по 4800 байт = 1382400 байт
Ответ: 11059200 бит, 1382400 байт
___________________________________________
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт
Строка: 60 символов по 8 бит = 480 бит
60 символов по 1 байту = 60 байт
Страница: 40 строк по 480 бит = 19200 бит
40 строк по 60 байт = 2400 байт
Учебник: 288 страниц по 19200 бит = 5529600 бит
288 страниц по 2400 байт = 691200 байт
Ответ: 5529600 бит, 691200 байт
2 в "х" степени = 64; 2 в "х" степени = 2 в 6й сепени; х = 6.
Ответ: Потребуется шестиразрядный двоичный код
Var
a:array [1..10] of integer;
i,k,s:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(191)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
if (a[i]<100)and(((a[i] div 10)mod 2)=0) then s:=s+a[i] else
if (((a[i] div 10)mod 10) mod 2) = 0 then s:=s+a[i];
end;
writeln('Сумма элементов у которых вторая с конца цифра четная:',s);
end.
1703 г.
read(god);
while god <> 1703 do begin
write ('Неправильно!');
read(god);
end;
write('Правильно');
pascal
Посмотри в документе, я прикрепил, запусти программу