1)Укажите по 3 сходства и различия биологических и компьютерных вируса 2)Укажите 4 функции антивирусных программ 3)Укажите 3 признака присутствия (компьютерного) вируса

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=0;
  var i:=2;
  while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
  Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
  Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do s:=s+2*i;
  Writeln(s)
end.

#include <iostream>

using namespace std;

int main()

{

   int a1 = 2;

   int d = -2;

   int amount = 0;

   int n;

   cin >> n;

   for (int i = 0; i < n; i++)

   {

       amount += a1;

       cout << a1 << " ";

       a1 += d;

   }

   cout << endl << amount;

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int a1 = 2; // Первый элемент = 2

   int d = -2; // Разность = -2

   int amount = 0; // Сумма = 0

   int n; // Создание целочисленной переменной n

   cin >> n; // Ввод с клавиатуры

   for (int i = 0; i < n; i++) // Идём от нуля до n

   {

       amount += a1; // Суммируем элемент

       cout << a1 << " "; // Выводим элемент

       a1 += d; // Узнаём следующий элемент прогрессии

   }

   cout << endl << amount; // Выводим сумму

}