Пользователь вводит с клавиатуры величину, выраженную в килобайтах. Программа переводит ее в биты и мегабайты.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | program line_4; uses crt; var kb, b: longint; mb: real; begin clrscr; write(‘kb (килобайт) = ‘); readln(kb); b:=kb*1024*8; mb:=kb/1024; writeln(kb,‘ килобайт = ‘, b, ‘ бит = ‘, mb:6:4, ‘ мб’); readkey; end. |