Решаем задачи Абрамян на Паскале. Integer 3

Integer3. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).

Решение:

program Integer3;
var
  byte, kilobyte: Integer;
begin
  Write('Введите размер файла в байтах: ');
  Readln(byte);
  kilobyte:=byte div 1024;
  Writeln('Данный файл занимает ',kilobyte,' полных килобайт.');
end.

program Integer3;

var

byte, kilobyte: Integer;

begin

Write('Введите размер файла в байтах: ');

Readln(byte);

kilobyte:=byte div 1024;

Writeln('Данный файл занимает ',kilobyte,' полных килобайт.');

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 3

Комментарии:

Добавить комментарий Отменить ответ