Var a, b, answer: integer;
function gcd(m, n: integer): integer;
var modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then gcd := n
else gcd := gcd (n, modulo) end;
begin
write('Введите 2 числа: '); readln(a, b);
answer := gcd(a, b);
writeln('Наибольший общий делитель: ', answer);
<span>end.</span>
<span>Т.к. каждый символ может иметь 64 значения, то есть
, то на каждый символ выделяется 6 бит(от 0 до 63, всего 64
варианта).Всего символов - 100. Значит всего нужно 6*100=600бит=75байт</span>
1) m = 0;
2) m = m+2 = 0+2 = 2;
3) m = 3*m = 3*2 = 6;
4) m = m-2 = 6-2 = 4;
5) m = m*m = 4*4 = 16;