Вы хотите переписать у своего друга несколько музыкальных сборников, в состав которых входят 1100 песен. информационный объем каждой песни составляет в среднем 7 мбайт. выберите из списка минимально необходимый вам для записи флеш-накопитель с учетом того, что производитель обычно завышает реальный информационный объём устройства примерно на 7% 1) 8 гбайт 2) 16 гбайт 3) 32 гбайт 4) 64 гбайт

1) 1100 * 7мб = 7700мб

100% - 7700мб

7%     - x

2) x=7700*7/100=539мб

3) 7700мб + 539мб = 8239мб

4) 8239 / 1024 = 8,0458984375гб

ответ : 2) 16гб

var

  time: 0..23;

 

begin

  writeln('введите текущее время в часах');

  readln(time);

  if time in [0..6] then writeln('спокойной ночи! ');

  if time in [7..12] then writeln('доброго утра! ');

  if time in [13..18] then writeln('доброго дня! ');

  if time in [19..23] then writeln('доброго вечера! ');

end.

пояснение: в этой программе используются множества. если время в часах входит в множество чисел, указанных в квадратных скобках, то программа пишет соответствующее сообщение. например: if time in [0..6] означает: если введенное время входит в промежуток от 0 до 6.

var

  hour: integer;

begin

  write('который час? '); readln(hour);

  case hour of

      6..11: writeln('доброе утро');

      12..15: writeln('добрый день');

      16..21: writeln('добпый вечер');

      22..24, 0..5: writeln('доброй ночи');

  else

      writeln('в сутках только 24 часа');

  end;

end.

 

//через if

 

var hour: integer; beginwriteln('введите время'); readln(hour)  ; if hour < = 12 thenbeginwriteln('добрго утра'); end; if (hour > 12) and (hour < 20) thenbeginwriteln('доброго дня'); end; if (hour > = 20) and (hour < = 24) thenbeginwriteln('добрый вечер'); end; if hour > 24 thenbeginwriteln('не многовато часиков то ? '); end; end.