1. Пусть объём жёсткого диска компьютера, к которому вы имеете доступ равен 500 Мбайт. Сколько страниц текста можно было бы разместить в памяти этого компьютера ( на странице размещается 40 строк по 60 символов в каждой строке )? Какой была бы высота такой стопки страниц, если высота из 100 страниц 1 см? 2. Фотоальбом полностью занимает DVD объемом 4,7 Гбайт. Сколько времени уйдет на просмотр всех фотографий, если на просмотр одной фотографии уходит 5 секунд и каждая фотография занимает 500 Кбайт?

Free Pascal.  Все три задания в одном коде.

Объяснение:

const k=10;

var

 a, i, n: integer;

 s : double;

 ar : array[0..k-1] of integer;

begin

 writeln('Задание 4');

 write('Введите число : ');

 readln(a);

 for i:=8 to 18 do

   if a>=0 then

     write(sqrt(i):2:2, '  ')

   else

     writeln((i+0.8):2:1);

 writeln();

 writeln('---------------------------------');

 writeln('Задание 5');

 write('Введите n : ');

 readln(n);

  s:=0;

  for i:= 1 to n do

    s := s + i/2;

  writeln('Сумма ряда = ', s:2:1);

  if s>10 then

    writeln('Сумма ряда больше 10')

  else

    writeln('Сумма ряда меньше 10');

 writeln('---------------------------------');

 writeln('Задание 6');

 for i:=0 to k-1 do begin

   write('введите [', i, '] = ');

   readln(ar[i]);

 end;

 n:=0;

 for i:=0 to k-1 do

   if (ar[i] mod 2 = 0) then

     inc(n);

 writeln('Кол-во чётных чисел = ', n);

end.

Был на свете человек он был обичный как все любил призидента и был нормальным но один раз когда он пошоо гулять с друзьями он упал в яму наткнувшись на блок он кго тронул и о него было видение потом его нашли копы работающие на призедента они розказали ему что Президент взорвет мир и только он мон мир с блока его хотели питать но пришел парень который его началась погоня и парень понял (его звали Дикарь) что человек (он де Эммет) не избранный продалдалась погоня и коп вистрельнул в Эммета пушкой (котороя не взривала а прилипила жучка)
Коп их стрелял но бэтмен их они полетели в Заоблачную даль
К другим крутим людям которие б им мир но из-за жучка прилетели копы и взорвали Заоблачную даль всех посадили в тюрмю но банда Эммета уцелела они пошли к Президенту гле их ожидали и словили все билы без но Эммет вибралса гле подертвовал собой для других и они закончили то что Эммет начал надавали люлей Президенту и копам и мир не взорвался а Эммет вижил!
Конец!