• Ваш друг предлагает вам переписать отснятый им видеофильм. Из носителей информации у вас есть: компакт-диск объемом 650 МБ, дискета объемом 1МБ и флеш-накопитель объемом 1000Мб. Напишите программу, перечисляющую все носители, на которые полностью поместится фильм. Объем видеофайла задается в мегабайтах.

Ответы 1

  • vard:integer;consta=650;b=1;c=1000;beginwrite('Введите объём видеофайла в мегабайтах: ');readln(d);if d>a then write('Видеофайл не помещается на  носитель информации"А"!',#10) elsewriteln('Памяти хватает для записи на носитель "А"! ',#10);if d>b then write('Видеофайл не помещается на  носитель информации"B"!',#10) elsewriteln('Памяти хватает для записи на носитель "B"! ',#10);if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) elsewriteln('Памяти хватает для записи на носитель "C"! ',#10);readln;end.
    • Автор:

      dalepghe
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years