M = E/gh - формула для массы тела
Дано:
i = 4
N - ?
Решение:
N = 2^i
N = 2^4 = 16
Примеры умозаключения:
1. Эверест - гора, Белуха - гора, значит они Эверест и Белуха - горы.
2. Дима- мужское имя, Сергей - мужское имя, значит Дима и Сергей - мужские имена.
Ну и сложный пример:
3.Одно кодовое слово, не может быть началом второго кодового слова.
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>