Злая мачеха отправила падчерицу к роднику за водой и сказала"вот тебе 2 ведра,в одно из них входит 9 литров,а в другое 5 литров. но ты должна мне принести ровно 3 литра.как действовать падчерице?
Вначале налить 9 затем перелить в другое.Потомстало 5 и 4 5 вылеваем. остаётся 0 и 4 4 переживаем. остаётся 4 и о набираем 9 переливаем. 8 и 5 5 вылеваем .остаётся о и 8 8 переживаем остаётся 3и5
//PascalABC.NET версия 3.2, сборка 1417 //Если программа не запускается, то обновите версию begin var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9); m.Println();
{1} Writeln('количество элементов соответствующей строки'); var number := ReadInteger('Введите число, для проверки ='); var a := m.Rows.Select(r -> r.Count(x -> x > number)); a.Println;
{2} Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.'); var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1)); b.Println; Writeln(b.Any(x -> x > 0));
{3} Writeln('Заполнить массив'); var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1; m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1); m.Println(); end.
def prime(num): if num <= 1: return False for div in range(2, num // 2 + 1): if num % div == 0: return False return True
def nth_superprime(n): if n < 1: return None else: c = 0 for x in count(2): digits = [int(l) for l in str(x)] if all(map(prime, digits)): c += 1 print(c, '=', x) if c == n: return x
