Як виконається умова if none = 0 print ta-da​

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

а) наличие электромагнитного излучения, сrt

  б) ухудшение качества изображения при изменении угла обзора, lcd

  в) компактные размеры lcd

  г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt lcd

  д) формирование изображения с лучей электронных пушек, crt

  е) меньший вред для здоровья человека при работе. lcd