1. системы счисления
1.2. запишите в развернутой форме число 62,010
2. перевод числа из одной системы счисления в дру
2.1. заполните таблицу, в каждой строке которой од
записано в системах счисления с основаниями 2, ,
10
1001101
| 26
одно и тоже число должно быть
2
(8
иями 2, 8, 10, 16.
16
| 254
1e
2.2. вычислите десятичные эквивалент числа тогтмол
3. двоичная арифметика
110011001,+10110112
4. представление чисел в компьютере
4.1. представьте число в 8-разрядном формате 10
2. запишите числа в естественной форме 0,
4.3. среди ниже трёх чисел, записа
найдите максимальное и запишите его в ответа
запишите только число, основание с
2416, 50, 101 100.
пишите найменьшее целое число х, для ко.
не (х < = 7) и (х< 20)?
ие 0,64*108, 100908,56e-4.
санных в различных системах счисления,
в десятичной системе счисления. в ответе
исления указывать не нужно.
ование системы с
5.логика напишите наймены
х, для которого истинно высказывание: ​

//Язык Pascal

Program multiplication;

Var

  code, rightAnswers, mistakes, answersCount, value1, value2, answer: integer;

Begin

  Randomize;

  code := 1;

  rightAnswers := 0;

  mistakes := 0;

  answersCount := 0;

  while code = 1 do

  begin

     Write('Проверим? ');

     Readln(code);

     Writeln();

     if (code = 1) then

     begin

        value1 := random(1, 9);

        value2 := random(1, 9);

        Write(value1, '*', value2, ' = ');

        Readln(answer);

        if (answer = value1 * value2) then

        begin

           Writeln('Правильно!');

           rightAnswers := rightAnswers + 1;

        end

        else

        begin

           Writeln('Неправильно!');

           mistakes := mistakes + 1;

        end;

        answersCount := answersCount + 1;

        Writeln();

     end;

  end;

  Writeln('Статистика:');

  Writeln('Задано вопросов: ', answersCount);

  Writeln('Количество правильных ответов: ', rightAnswers);

  Writeln('Число ошибок: ', mistakes);

End.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

var c, w: integer;

procedure check;

begin

 var (a, b) := (Random(0, 20), Random(0, 20));

 Print($'{a}*{b}=');

 if a * b = ReadInteger then begin inc(c); Println('Правильно') end

 else begin inc(w); Println('Неправильно') end;

end;

procedure res;

begin

 Println($'Задано вопросов {c+w}');

 Println($'Правильных {c}({(c*100)/(c+w):f1}%)');

 Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');

end;

begin

 var start := true;

 while start do

 begin

   Println('Проверим?(0/1)');  

   if ReadInteger = 0 then

   begin start := false; res; end

   else check;

 end;

end.

Пример в приложении.