5 декабря, 15:34

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

+2
Ответы (1)
  1. 5 декабря, 17:08
    0
    Var

    d:integer;

    const

    a=650;

    b=1;

    c=1000;

    begin

    write ('Введите объём видеофайла в мегабайтах: ') ;

    readln (d) ;

    if d>a then write ('Видеофайл не помещается на носитель информации"А"!',#10) else

    writeln ('Памяти хватает для записи на носитель "А"! ',#10) ;

    if d>b then write ('Видеофайл не помещается на носитель информации"B"!',#10) else

    writeln ('Памяти хватает для записи на носитель "B"! ',#10) ;

    if d>c then write ('Видеофайл не помещается на данный носитель информации"С"!',#10) else

    writeln ('Памяти хватает для записи на носитель "C"! ',#10) ;

    readln;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Ваш друг предлагает вам переписать отснятый им видеофильм. Из носителей информации у вас есть: компакт-диск объемом 650 МБ, дискета объемом ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Составить программу для нахождения элемента массива равного Заданному числу N. Число N Задается с клавиатуры массив состоит из 25 целых чисел заданных с клавиатуры.
Ответы (1)
Паскаль. Напишите программу, которая просит ввести с клавиатуры натуральное число и выводит на экран, является ли число двузначным.
Ответы (1)
C++. Почему не подключается / / ? Я исполььзую Dev c++, когда пишу #include / /, возникает ошибка [Error] bits/stdc++: No such file or directory
Ответы (1)
1) Сколько бит информации содержит сообщение объемом 1024 кбит? (ответ-степень 2) 2) сколько байт информации содержит сообщение объемом 128 гбит? (ответ-степень 2) 3) сколько байт информации содержит сообщение объемом 32 гбит? (ответ степень 2)
Ответы (2)
Как в pascalABC написать скрипт для бота продавца (робот должен говорить сколько денег стоит товар после того как ему сказали количество товара)
Ответы (1)
Устройство ситевой памяти
Ответы (1)
7. Определите, что будет напечатано в результате выполнения программы (записанной ниже на разных языках программирования) : var n, l : integer; begin n:=0; l:=1; while l <11 do begin n:=n+l; l:=l+1; end; write (n) ; end.
Ответы (1)
Какой блок является результатом построения блок-схемы алгоритма? A. введение B. обработка C. логическое D. Выпуск
Ответы (1)
Перечислите три способа которые позволяют повысить производительность процессора
Ответы (2)
Как в pascal abc заполнить массив случайными числами в диапазоне [-10000; 10000]?
Ответы (1)