Пользователь вводит с клавиатуры величину, выраженную в килобайтах. Программа переводит ее в биты и мегабайты.
Решение:
|
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. |