Условие: вася любит решать на темы, которые проходили на занятиях кружка по . он познакомился с темой, связанной с делимостью чисел. по дороге домой из школы он записывал все числа, которые встретились ему на пути. получился набор из n целых чисел. ему интересно, можно ли разбить этот набор не более чем на три группы так, чтобы в каждой группе все числа имели общий делитель, больший 1. ему решить эту . формат входных данных в первой строке входного файла записано одно целое число n (1 ⩽ n ⩽ 105 вторая строка содержит n положительных целых чисел, записанных через пробел, встреченных васей по дороге домой. каждое число не превосходит 10^9. формат выходных данных в первую строку выходного файла требуется вывести строку possible, если разбить числа требуемым образом можно, и impossible, если нельзя. если разбиение существует, то во вторую строку необходимо вывести n чисел через пробел, каждое из которых равно 1, 2 или 3 и означает номер группы в разбиении соответствующего числа. если разбиений существует несколько, то нужно вывести данные для любого из них. примеры: вход: 5 12 7 18 5 10 выход: possible 1 2 1 3 1 вход: 4 2 1 3 4 выход: impossible замечание в первом тесте числа разбиваются на три группы так: 12 и 18 (оба делятся на 6), 7, и наконец, 5 и 10, поскольку оба делятся на 5.
Ответы
С# консольное приложение
Объяснение:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
//Ваш массив
string[] months = {"May","August","April","May","July"};
//Искать до тех пор пока в массиве есть "Май"
while (-1!=Array.IndexOf(months,"May"))
{
//Найти где находится Май в массиве
int index = Array.IndexOf(months, "May");
//Изменить май
months[index] = "Это не май";
}
//Для отладки
Console.ReadKey();
}
}
}
Var a, i, n, sum: integer;
Degin
ReadLn(a, n);
Sum := 1;
For i := 1 to n do sum := sum * a;
WriteLn(sum);
End.
WHILE
Var a, i, n, sum: integer;
Begin
Read(a, n);
Sum := 1;
While i <> n do
Begin
Sum := sum * a;
Inc(i);
End;
Writeln(sum);
End.
REPEAT
Var a, i, n, sum: integer;
Begin
Read(a, n);
Sum := 1;
If n <> 0 then
Repeat
Begin
Sum := sum * a;
Inc(i);
End;
Until i = n;
WriteLn(sum);
End.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Описать параметры поиска информации в сети ИнтернетПОДРОБНОЗаранее
Help pls Задание на скриншоте, a=12
Какое количество осей в прямоугольной системе координат?
Пример источника информации и рассказать о нём
Информатика. 7 класс. на фотографии.
Если во входном наборе есть 1 или 0, тогда вывести "Impossible", иначе
вывести "Possible" и N единиц (у меня полный , но я не знаю, почему это работает)