Остатки от деления:
- 2330 | 2 => 0
- 1165 | 2 => 1
- 582 | 2 => 0
- 291 | 2 => 1
- 145 | 2 => 1
- 72 | 2 => 0
- 36 | 2 => 0
- 18 | 2 => 0
- 9 | 2 => 1
- 4 | 2 => 0
- 2 | 2 => 0
- 1 | 2 => 1
Записываем в обратном порядке 
Ответ: 100100011010
<em>Есть еще способ через таблицы, но их надо иметь</em>
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
Переменная "c" после выполнения этого кода будет: 32
24 цепочки примеры
АБВ АБГ АБЕ
ВАБ ВАГ ВАЕ и др соблюдая правило
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
<span><span>End;
<em>Пример программы с использованием данной функции:</em>
</span>Program Example;
Var a, b: Integer;
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
<span>End.</span></span>
