Заданы пять точек на плоскости. постройте звезду с вершинами в этих точках или выясните, что это невозможно. в этой звездой называется замкнутая ломанная из пяти отрезков. каждые два отрезка звезды имеют ровно одну общую точку: y соседних отрезков одна общая точка в вершине ломанной, а у отрезков, не являющихся соседними, - одна общая точка, не являющаяся вершиной ломанной формат ввод данных: входные данные состоят из пяти строк. каждая из них содержит координаты очередной точки - два целых числа x и y, разделенные точки пробелом. гарантируется, что все заданные точки разделены формат выходных данных: в первой строке выведите yes, если звезду удалось построить, и no в противной случае. если звезда построена, выведите еще пять строк. в каждой из ни запишите координаты очередной вершины ломанной. это должны быть заданные точки в порядке обхода звезды. если возможных ответов несколько, то выбирите любой из них пример 1) ввода: 3 1 1 7 5 9 9 7 7 1 вывод: yes 5 9 7 1 1 7 9 7 3 1 пример 2) ввод: 1 1 1 3 3 1 3 3 2 2 вывод: no

1. Есть очень много вирусов они могут очень быть опасными для человека или того же животного.
Известные вирусы: Коронавирус, орви, пневмония или есть много видов грип они все очень опасные и чтобы защитить свой организм нужно жить правильно короче здарова нужно жить.

2. Вреданостные программы создают для того чтобы взломать компьютер, телефон или ноутбук. Создают это плохие хакеры. Они это делают для того чтобы украсть твои данные.

3.то что он начинает зависать плохо работать. Или вообще отключатся и потом скора этот компьютер будет не починить и он сломается и так этот вирус начнёт заряжать другие компьютеры. Чтобы это остановить нужно установить анти-вирус он ваш компьютер и устранит вирус.

Такой вариант на простом паскале со стратегией жадность

var
    n, s, i: integer;
    x: array[1..100]of integer;
    answer: string;

begin
    readln(n);
    for i := 1 to n do
        read(x[i]);
    readln(s);
   
    answer := IntToStr(s) + ' = ';
    for i := n downto 1 do
    begin
        answer := answer + IntToStr(s div x[i]) + '*' + IntToStr(x[i]);
        s := s mod x[i];
        if i > 1 then
            answer := answer + ' + ';
    end;
   
    if s <> 0 then
        writeln('NO')
    else
        writeln(answer);
end.

Более полный и правильный вариант решения, но и куда более сложный

//PascalABC.Net 3.1 сборка 1200
uses System.Collections.Generic;
uses System;
var
    x := new List<integer>;
    c := new List<Tuple<string, integer>>;

procedure getParcelling(sum, step: integer; coefficients: string; count: integer);
begin
    if step >= x.Count then begin
        if sum = 0 then c.Add((coefficients, count));
        Exit;
    end;
    if step < 0 then step := 0;
    
    for var j := 0 to (sum div x[step]) do
    begin
        var s := '';
        if j > 0 then begin
            if step > 0 then s += ' + ';
            s += IntToStr(j) + '*' + IntToStr(x[step]);
        end;
        getParcelling(sum - x[step] * j, step + 1, coefficients + s, count + j);
    end;
end;

begin
    x := ReadArrInteger('x:', ReadInteger('n =')).ToList;
    var sum := ReadInteger('sum =');
    
    getParcelling(sum, 0, '', 0);
    if c.Count = 0 then
        writeln('No')
    else begin
        var min := c.Min(cc -> cc.Item2);
        Println(c.Where(cc -> cc.Item2 = min));
    end;
end.