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

Question

Информатика

Моня

15 мая, 04:40

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

+2

Ответы (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.