Var n, n1, n2, n3: integer;
begin write('Введите трехзначное число: '); readln(n); if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа') else begin n1 := n div 100; n2 := n div 10 mod 10; n3 := n mod 10; writeln('1 - ', n3, n2, n1); writeln('2 - ', n3, n1, n2); writeln('3 - ', n2, n1, n3); end;end.
А) Умножить на 8
Б) Умножить на 1024
В) Умножить на 1024
Так как, в 1 байте 8 бит
1 Кб= 1024 байт
1 Мб= 1024 Кб
Карп корп кора коза по другому не знаю
1 - 12 (проверил на калькуляторе)