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

Question

Информатика

Нимфа

26 января, 12:07

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

+1

Ответы (1)

Знаете ответ на вопрос?

Пантелеймон · Answer 1

Program musica;

var m, n:integer;

begin

write ('Введите количество минут и секунд через пробел: ') ;

readln (m, n) ;

if (16 * (m * 60 + n) < = 6 * 1024) then writeln ('Песня поместится')

else writeln ('Песня не поместится') ;

end.