<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-35,60);
a.Println(4); Writeln(4*a.ColCount*'-');
a.Rows.Select(row->row.Where(t->t<0).Count).Println
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 5 8
*** Исходный массив [5,8] ***
-21 50 17 -12 -30 10 -9 10
39 1 0 41 -29 26 28 16
50 52 13 36 43 -6 37 5
34 -3 27 13 29 -30 49 36
-17 -12 39 52 -15 -8 27 -9
--------------------------------
4 1 1 2 5
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var s1:=ReadlnString('Первая строка:').ToHashSet;
var s2:=ReadlnString('Вторая строка:').ToHashSet;
(s1-s2).Println('');
end.
<u><em>Тестовое решение:</em></u>
Первая строка: 12345 - вышел Зайчик погулять!
Вторая строка: 34 - ноги шире!
125вылЗайчкпуять
а в чем проблема в excel переписываешь 10-11 ячейки объединяешь
колонку цену делаешь по центру на 5 минут работы
def f():
counter = 0
for num in range(100,1000):
if num % 3 == 0 and num % 10 == 2:
counter += 1
return counter
Уже после ответа придумал еще одну функцию, делает то же самое.
def f():
return len([x for x in range(100, 1000) if x % 3 == 0 and x % 10 == 2])
Выбор Тематики
Идея
Материал
Поиск информации
Оформление
Печать