Var
x, y, p: Integer;
begin
Writeln('Введите два числа');
Readln(x, y); {вводим два целых числа}
p := x * y;
repeat
if x > y Then x := x Mod y
Else y := y Mod x
until (x = 0) Or (y = 0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
Каждые 8 разрядов данного адреса нужно перевести в десятичную систему счисления:
<span>11001100(2) = 204(10)
10011000(2) = 152(10)
10111110(2) = 190(10)
01000111(2) = 71(10)
204.152.190.71</span>
1.Каждое предложение начинается с заглавной буквы
2.Между словами должен быть пробел
3.После знаков препинания должен быть пробел
4.С стороны знаков "- и =" должен быть пробел