Компьютерный вирус а заполняет 1 гбайт за один месяц, вирус в заполняет 1 гбайт за два месяца, вирус с заполняет 1 гбайт за три месяца, вирус d заполняет 1 гбайт за шесть месяцев.на компьютере одновременно обнаружены сразу все четыре вируса.сколько гбайт они заполнят за один месяц?

вирус а: 1/1 = 1 гб/ мес

вирус b: 1/2 = 0,5 гб/мес

вирус с: 1/3 гб/мес

вирус d: 1/6 гб/мес

все 4 за мес: 6/6 + 3/6 + 2/6 + 1/6 = 12/6 = 2 гб памяти они займут за 1 мес.

Объяснение:

program EvenArray;

const

ArraySize=6;

var

a : array [1..ArraySize] of integer;

x, i,ArraySum, OddQty, Min, MinPos, OverX5, Neg, Pos : integer;

begin

  for i:= 1 to ArraySize do begin

      Write('Input a[',i,']: ');

      ReadLn(a[i]);

  end;

  Write('Input x: ');

  ReadLn(x);

  

  ArraySum := 0; OddQty :=0; Min := a[1]; MinPos := 1; OverX5 := 0; Pos := 0; Neg := 0;

  for i:= 1 to ArraySize do begin

      ArraySum := ArraySum + a[i];

      if a[i] mod 2 <> 0 then OddQty := OddQty + 1;

      if a[i] < Min then begin Min := a[i]; MinPos := i; end;

      if (a[i] > x) and (a[i] mod 5 = 0) then OverX5 := OverX5+1;

      if a[i] > 0 then Pos := Pos + 1;

      if a[i] < 0 then Neg := Neg + 1;

  end;

  

  writeln('Default array is:');

  for i:=1 to ArraySize do write(a[i],' ');

  writeln();

  

  writeln('Total array sum is: ' , ArraySum);

  writeln('Odd quantity is: ', OddQty);

  writeln('Minimum in array is : ', Min ,' at the ', MinPos, '-th position');

  Writeln('More than X and x5 :', OverX5);

  If Pos = Neg

  then Writeln('There are equal negative and positive numbers')

  else if Pos > Neg then Writeln('There are more positive numbers than negative')

      else Writeln('There are more negative numbers than positive');

  

end.

КОМПЬЮТЕРНАЯ СЕТЬ КОМПЬЮТЕРНЫХ СЕТЕЙ НЕСКОЛЬКО СЛОВ ПРО ИНТЕРНЕТ ДЛЯ ТЕХ, КТО О НЕМ СОВСЕМ НИЧЕГО НЕ ЗНАЕТ

Р. СВОРЕНЬ.

Журнал "Наука и жизнь" много лет назад начал регулярно приобщать своих читателей к электронной вычислительной технике. Еще в начале восьмидесятых, когда персональные компьютеры в стране можно было пересчитать по пальцам, в журнале появился, а затем долго пользовался большой популярностью, раздел "Человек с микрокалькулятором" - в те времена программируемый калькулятор был единственной "интеллектуальной машиной", доступной рядовому пользователю.

Через несколько лет на смену этому разделу пришла рубрика "Человек и компьютер", но она появлялась в журнале все реже - в стране стало издаваться много специализированных компьютерных изданий, в том числе и научно-популярных, и наш журнал, казалось, ничем не может их дополнить.

С течением времени, однако, выяснилось, что многие начинающие пользователи и те, кто только собирается начать свое общение с компьютером, еще не готовы к полному переходу на специальную компьютерную прессу и получают интересующую их информацию из изданий широкого профиля. В расчете на эту группу читателей, редакция, начиная с этого номера, попытается активизировать публикацию в разделе "Человек и компьютер". Мы рассчитываем, что ваши отклики оценить, как правильность самого этого решения, так и выбранную тематику и доступность изложения. В этом номере раздел "человек и компьютер" ведет С. Козырьков, генеральный директор фирмы "Альтер-Вест".