<span> 1011110
</span><span> 1100111
---------------
11000101
Арифметика двоичной системы счисления нужно выполнять при помощи ТАБЛИЦЫ сложения и умножения. Можно ее найти в интернете.
</span>
Function NOD(a, b: longint): longint;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
A, B, C: longint;
begin
Write('Введите три натуральных числа: '); Readln(A, B, C);
Writeln('НОД=', NOD(NOD(A, B), C))
end.
<em><u>Тестовое решение:</u></em>
Введите три натуральных числа: 256 48 24
НОД=8
00-FF - стандартная кодировка оттенков серого
1,5 Мбайт = 1,5*1024 Кбайт = 1,5*1024*1024 байт = 1,5*1024*1024*8 бит = 12 582 912 бит