2вариант, в паскале . пойдут скрины

Тест по информатике. Правильные ответы отмечены галочками (v)Для верного решения нужно вспомнить, что в 1 байте 8 бит, а также 1кб=1024байт 1Мб=1024кб 1Гб=1024мб.1 символ кодируется 1 байтом, т.е. 8битамиСколько битов содержится в одном байте?(V) 8() 2() 1024() 10 Сколько байтов в слове бит?() 24 () 8(V) 3() 2 Сколько битов в слове байт?() 24() 8(V) 32() 4  512 битов - это:() 1.2 килобайта(V) 64 байта() 256 байтов() 50 байтов 1 килобайт - это:() 1000 байтов() 8 битов () 1024 бита(V) 1024 байта В какой строке единицы измерения информации представлены по возрастанию?() Гигабайт, мегабайт, килобайт, байт, бит.() Бит, байт мегабайт, килобайт, гигабайт.() Байт, бит, килобайт, мегабайт, гигабайт.(V) Бит, байт, килобайт, мегабайт, гигабайт.  8) 81 920 битов - это: () 80 килобайтов(V) 10 килобайтов() 8 килобайтов() 1 мегабайт

var

 i, p, n, q, sum: integer;

 a : array[1..1000000] of byte;

begin

 Write('Введите число N: ');

 ReadLn(n);

 Write('Введите основание системы счисления q: ');

 ReadLn(q);

 p := n;

 while p > 0 do

   begin

     i := i + 1;

     a[i] := p mod q;

     sum := sum + a[i];

     p := p div q;

   end;

 Write(n,'(10) = ');

 for p := i downto 1 do

   Write(a[p]);

 WriteLn('(', q, ')');

 WriteLn('Сумма цифр полученного числа равна ', sum);

 WriteLn('Количество цифр полученного числа равна ', i);

end.

Объяснение: