Если для кодирования отводится 8 бит то решение такое 1 символ = 1 байт каждая строка состоит из 64 символа, значит 64 симв.*1 байт=64 байт - в одной строке. на каждой странице 40 строк значит: 64*40=2560 байт на одной странице. если у нас 8 страницы, то получаем: 2560*8=20480 байт, 1 кбайт = 1024 байт, т.е 20480 байт / 1024 = 20 кбайт. Но в ваших данных написано, что объем статьи 25 кбайт. тогда рассмотрим обе объема и переведем их в бит 20 кбайт * 1024 байт = 20480 байт. 20480 байт * 8 бит = 163840 бит
var
n,s:longint;
n1:integer;
begin
readln(n);
s:=0;
while n <> 0 do begin
n1:=n mod 10;
if n1 mod 2 = 0 then s:=s+n1;
n:=n div 10 end;
writeln('s=',s)
end.
Объяснение:
картинка
Строки 2 и 3 можно менять местами
Строки 5 и 6 можно менять местами
var
n1:integer;
n,s:longint;
begin
s:=0;
readln(n);
while n <> 0 do begin
n1:=n mod 10;
if n1 mod 2 = 0 then s:=s+n1;
n:=n div 10 end;
writeln('s=',s)
end.
Описываем переменные
Вводи число
Начальное значение переменной для накопления суммы равно 0
Цикл (пока число неравно 0):
вычисляем последнюю цифру числа
проводим проверку на чётность, если пройдена, то суммируем
отбрасываем последнюю цифру числа
Выводим результат