program raf105;
var
A: real;
x: integer;
begin
write('Введите число в битах: ');
readln(A);
writeln('1. Байт');
writeln('2. Килобайт');
writeln('3. Магабайт');
writeln('4. Гигабайт');
write('Введите номер единицы, в которую нужно перевести: ');
readln(x);
if x=1 then writeln(A/8,' байт')
else if x=2 then writeln(A/8000,' кб.')
else if x=3 then writeln(A/8000000,' мб.')
else if x=4 then writeln(A/8000000000,' гб.')
else writeln('Ошибка');
end.
PascalABC 3.4.2
1. 1101 0010 1001 1010
2. 1455
3. 1100 0100 1
4. 175 1
5. в 8-ричной 153, в 16-ричной 6B
6. в двоичной 1011 1111 0, в 16-ричной 17E
7. в 2-ичрой 1001 0101 001, в 8-ричной 225 1
8. 1010 0101 0111 и 1001 0001 1
9. 12C7 и 105
10. 1001 1110 001 и 1001 0001 10
11. D9C и 3E8
Объяснение:
минус много минут моей жизни