М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
УмНиК4980
УмНиК4980
10.12.2022 21:41 •  Информатика

Заданы пять точек на плоскости. постройте звезду с вершинами в этих точках или выясните, что это невозможно.
в этой звездой называется замкнутая ломанная из пяти отрезков. каждые два отрезка звезды имеют ровно одну общую точку: 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

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

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

3.то что он начинает зависать плохо работать. Или вообще отключатся и потом скора этот компьютер будет не починить и он сломается и так этот вирус начнёт заряжать другие компьютеры. Чтобы это остановить нужно установить анти-вирус он ваш компьютер и устранит вирус.
4,4(51 оценок)
Ответ:
zyxra4
zyxra4
10.12.2022
Такой вариант на простом паскале со стратегией жадность

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.
4,5(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ