Алфавит содержит 256 символов. 256 - это 2 в 8 степени, получается, вес 1 символа = 8 бит = 1 байт.
Количество символов в книге находится умножением строк и символов: 5*63 = 315
Объём всего текста находится умножением веса одного символа на количество символов в тексте. 315*1 байт = 315 байт.
Байты можно перевести в более крупные единицы делением на 1024: 315 байт = 0,31 Килобайт
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=S+(m mod 10);
m:=m div 10;
End;
WriteLn('Сумма цифр равна: ',S);
End.
Program ex4;
Var
m,n:longint;
S:integer;
Begin
WriteLn('Введите целое число не равное 0');
ReadLn(n);
m:=n;
S:=0;
While m<>0 do
Begin
S:=m mod 10;
m:=m div 10;
End;
WriteLn('Первая цифра числа: ',S);
End.
Скорость передачи умножаем на время и делим на 16
4096*10=40960
406960/16=2560
Ответ: 2560
Program n_1;
var n, i:integer;P, b, s: real;
begin
read(n, P);
s:=0;
for i:=1 to n do begin
read(b);
if b>P then s:=s+b;
end;
writeln(s:0:10);
end.