Проверить,поместится ли ** диске компьютера музыкальная композиция,которая длится m минут...

Question

Проверить,поместится ли на диске компьютера музыкальная композиция,которая длится m минут и n секунд,если свободное дисковое пространство 6 мегабайтов,а для записи одной секунды звука необходимо 16 килобайт(Pascal ABC)

Answer 1

Program musica;

var m, n:integer;

begin
     write('Введите количество минут и секунд через пробел: ');
     readln(m, n);
    
     if (16 * (m * 60 + n) <= 6 * 1024) then writeln('Песня поместится')<br>     else writeln('Песня не поместится');
end.