Решение задач по теме "Действия с целыми числами в Pascal"

Решение задачи №3

program three;
var
   Razmer:integer;
begin
   write('Введите размер файла в байтах. Файл = ');
   readln(Razmer);
   writeln('Количество полных килобайт = ',Razmer div 1024);
end.

Назад