Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
<u>Немецкий ученый Лейбниц</u><span>, развив идею Паскаля, </span><u>создал механический арифмометр</u>, <span>на котором можно было выполнять все четыре арифметические операции с многозначными числами. Позднее арифмометр многократно совершенствовался, </span><u>в России изобретателями П.Л. Чебышевым и В.Т. Однером были также созданы арифмометры.</u>
1.10*8 (256=2^i)=80 бит
2.1/6Мбайта=1/6*1024*1024*8(бит)=<span><span>1398101 бит ;V=k*i
</span></span>k=1398101/4 (16=2^i)=<span><span>349525,3
3.х=10500Мбайт/(30*70*8)=10500*1024*1024*8/</span></span>(30*70*8)=<span><span>5242880
V=(x*y*z)*i, </span></span>x,y,z - кол-во страниц, кол-во строк, <span>кол-во символов в строке соответственно</span>
Первый рисунок
1-чёрный, 0-белый.
11110111
11110001
10000101
00000001
10101111
<span>
</span>Второй
1001001
0101010
0011100
0101010
1001001
Третий
11111
10101
11111
00100
00100