Program z1; var a,b,c,d:integer; procedure nod(x,y:integer;var nod2:integer); begin while x<>y do begin if x>y then begin x:=x-y end else begin y:=y-x end end; nod2:=xend; begin write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); write('d=');readln(d); nod(a,b,b); nod(b,c,c); nod(c,d,d); writeln('nod=',d); readln end.
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
while x<>y do begin
if x>y then begin
x:=x-y
end
else begin
y:=y-x
end
end;
nod2:=xend;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
nod(a,b,b);
nod(b,c,c);
nod(c,d,d);
writeln('nod=',d);
readln
end.
а) 370₁₀ = 101110010₂
б) 244₁₀ = 340₈
в) 670₁₀ = 29E₁₆
Объяснение:
а)
370 / 2 = 185 + остаток 0
185 / 2 = 92 + остаток 1
92 / 2 = 46 + остаток 0
46 / 2 = 23 + остаток 0
23 / 2 = 11 + остаток 1
11 / 2 = 5 + остаток 1
5 / 2 = 2 + остаток 1
2 / 2 = 1 + остаток 0
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
370₁₀ = 101110010₂
б)
224 / 8 = 28 + остаток 0
28 / 8 = 3 + остаток 4
3 / 8 = 0 + остаток 3
записываем остатки снизу вверх
244₁₀ = 340₈
в)
670 / 16 = 41 + остаток 14
41 / 16 = 2 + остаток 9
2 / 16 = 0 + остаток 2
записываем остатки снизу вверх
670₁₀ = 29E₁₆
В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.
A₁₆ = 10₁₀ B₁₆ = 11₁₀ C₁₆ = 12₁₀ D₁₆ = 13₁₀ E₁₆ = 14₁₀ F₁₆ = 15₁₀