1. выполнить сложение: а) 10000011(2)+1000011(2); б) 1010010000(2)+1101111011(2); в) 110010,101(2)+1011010011,01(2); - id12294420230224 от Timyr123678 24.02.2023 15:55

Question

Информатика: 1. выполнить сложение: а) 10000011(2)+1000011(2); б) 1010010000(2)+1101111011(2); в) 110010,101(2)+1011010011,01(2); г) 356,5(8)+1757,04(8); д) 293,8(16)+3cc,98(16). 2. выполнить вычитание: а) 100111001(2)-110110(2); б) 1111001110(2)-111011010(2); в) 1101111011,01(2)-101000010,0111(2); г) 2025,2(8)-131,2(8); д) 2d8,4(16)-a3,b(16). 3. выполнить умножение: а) 1100110(2)× 1011010(2); б) 2001,6(8)× 125,2(8); в) 2c,4(16)× 12,98(16). 4. выполнить деление: а) 110011000(2) : 10001(2); б) 2410(8) : 27(8);

Timyr123678 · Accepted Answer

1-ая
Program one;
Var
n, i : integer;
a : array [1..1010] of integer;
Begin
read(n);

for i := 1 to n do
begin
read(a[i]);
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
for i := n downto 1 do
begin
write(a[i], ' ');
end;
End.
2-ая
Program two;
Var
n, i, k: integer;
a : array [1..1010] of integer;
Begin
read(n);
k := 1;
while (n > 0) do
begin
a[k] := n mod 10;
k := k + 1;
n := n div 10;
end;
for i := k - 1 downto 1 do
write (a[i], ' ');
End.
3-я
Program two;
Var
k, start, endd, i: integer;
a : array [1..1010] of integer;
Begin
read (start, endd);
k := 1;
for i := start to endd do
begin
     if (i mod 2 = 0) then
     begin
          a[k] := i;
          k := k + 1;
     end;
end;

for i := k - 1 downto 1 do
    write (a[i], ' ');

End.

MOGZ ответил