Каждые 8 разрядов данного адреса нужно перевести в десятичную систему счисления:
<span>11001100(2) = 204(10)
10011000(2) = 152(10)
10111110(2) = 190(10)
01000111(2) = 71(10)
204.152.190.71</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD(a,b:integer; var r:integer);
begin
while b>0 do (a,b):=(b,a mod b);
r:=a
end;
begin
var a,b,c,d:integer;
Write('Введите четыре натуральных числа через пробел: ');
Read(a,b,c,d);
var p,q,r:integer;
NOD(a,b,p); q:=(a*b) div p; // НОК(a,b)
NOD(c,d,p); r:=(c*d) div p; // НОК(c,d)
NOD(q,r,p); r:=(q*r) div p; // НОК(a,b,c,d)
Writeln('НОК=',r)
end.
<u>Пример</u>
Введите четыре натуральных числа через пробел: 15 23 36 150
НОК=20700
Разве это так сложно...
1. учитель или ученики нарисовали на доске рисунки и мальчик стирает их с доски
2. ученик собрал портфель и пошел по делам, другой зашел и готовиться к началу урока
3. девочка поливает цветы, незнаю относиться ли это к чему не будь
666(9) -> x(10)
666(9)=6*9^2+6*9^1+6*9^0=546(10)
666(9) = <span>546(10)</span>
Var x,y,c,k,i,a,b:integer;
begin
readln(x,y,a,b);
If (x mod 2=0) or (y mod 2=0) then
c:=(x+y) div 2
else
c:=x mod y;
For i:=1 to 15 do
k:=k+i;
While x<=100 do
x:=x*2;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln(c,' ',k,' ',x,' ',a,' ',b);
end.
