Http://calculatori.ru/perevod-megabit-v-megabajty.html <span>128 бит равно 16 байт
</span>
Решение во вложении
Ответ 4
Если что не понятно - спрашивайте
Если требовалось сделать таблицу истинности, вот. Если нужно что-то другое, то пиши в комментарии, я доделаю.
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
89 2
1 44 2
0 22 2
0 11 2
1 5 2
1 2 2
0 1
1011001