1) Вирус - это вредоносная программа, которая распространяется копируя себя (возможно не полностью). Различаются по попадания на устройство, типу заражаемых объектов распространения и типу вредоносных действий
В среднем жизненный цикл вируса такой: попадание на устройство, активация, поиск объектов для заражения, заражение, распространение
2) Вообще вирус может делать все то же, что и другая программа. Теоретически вирус может быть даже полезным. Но так или иначе он совершает действия не санкционированные самим пользователем или системой
Примеры вредоносных действий
использование ресурсов системы в своих целях (вычисления, Ддос атаки,...)удаление или порча, шифрование файловнарушение работы системы/ОСкража личных данных пользователя (напр. данных банковских карт, паролей)нарушение работы программперегрузка/блокировка линий связиспам, внедрение угрожающих/рекламных сообщений, переходы на нежелательные сайты
Вводится сначала радиус круга, потом координаты икс и игрек.
Эта точка проверяется на попадание в круг радиусом r, с центром в начале координат. Если нужен круг не в начале координат, надо добавить координаты его центра x0, y0 (и тоже их запрашивать вместе с радиусом). Потом эти координаты использовать как смещения по икс и игрек в неравенстве.
Неравенство получится такое: (x-x0)*(x-x0)+(y-y0)*(y-y0)<=r*r
var
x,y,r :real;
begin
write('r= ');
read (r);
write('x= ');
read (x);
write('y= ');
read (y);
if x*x+y*y<=r*r
then write('принадлежит')
else write('не принадлежит');
end.