Integer3. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Integer3; var byte, kilobyte: Integer; begin Write('Введите размер файла в байтах: '); Readln(byte); kilobyte:=byte div 1024; Writeln('Данный файл занимает ',kilobyte,' полных килобайт.'); end. |
Другие задачи из раздела Integer можно посмотреть здесь.
Комментарии: