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>
Ширина: 8*100 = 800
Высота: 8*75 = 600
Итого, разрешающая способность 800х600
После слова begin:
Переменной s присвоено значение 0.
Дальше идет цикл, повторяющийся 7 раз для значений k: 6,7,8, ... ,12
При каждом проходе цикла переменная s увеличивается на 10, т.е в результате она увеличится на 7 * 10 = 70.
Т.к. в начале она была равна 0, то в конце ее значение будет 0 + 70 = 70.
В чёрно-белой картинке цвет одной точки кодируется одним битом, значит количество точек = 6000/1 = 6000
Там должна быть поговорка "За добро добром и платять". А по вашим координатам (<span>(2,2) (5,1) (3,1) (12,1) (10,3) (12,1) (1,2) (2,1) (1,3) (4,2) (11,1) (4,2) (12,3))</span> получается "ром и платять".