ОЧЕНЬ НУЖНА Отчаянный писк
Контрольная работа
макс.
Дедлайн: 24 дек. 12:18
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Из чёрной дыры большого дупла, как из окна, высовывались четыре маленьких бельчонка.
Они вертели во все стороны острыми мордочками, толкались, налезали друг на друга, путаясь длинными голыми хвостами. И всё время, ни на минуту не умолкая, они пищали в четыре рта, на один голос.
– А ну-ка, прекратите эту музыку и расскажите толком, что у вас случилось, – скомандовал Нильс.
Но в ответ ему раздался такой отчаянный писк, что у Нильса в ушах зазвенело.
– Тирле упал! Тирле пропал! Мы тоже упадём! Мы тоже пропадём! – верещали бельчата.
Напишите программу, которая выяснит, что тут у них произошло.
Формат ввода
Вводится целое число n, затем n строк.
Формат вывода
Сначала вывести количество строк, в которых есть слова: упал, пропал, упадём или пропадём. Затем суммарную длину строк, в которых этих слов нет. Формат вывода:
Строк с падением:
Суммарная длина остальных:
Пример 1
Ввод Вывод
4
Расскажите толком, что у вас случилось?
Тирле упал!
Он влез на спину Дирле, а Пирле толкнул Дирле и Тирле упал.
Позовите-ка мне белку Сирле, это ваша мама, что ли?
Строк с падением: 2
Суммарная длина остальных: 90
Пример 2
Ввод Вывод
5
Тирле упал!
Тирле пропал!
Мы тоже упадём!
Мы тоже пропадём!
верещали бельчата
Строк с падением: 4
Суммарная длина остальных: 17
Для целого изображения - настройка цветности, контраст, баланс белого, кривые, наложение фильтров, трансформации (обрезать, повернуть, маштабировать)
Можно выделить отдельный кусочек изображения и сделать с ним те же операции
вырезать/скопировать кусок, клонировать/штамп, коллажировать, добавить текст, нарисовать что-то от руки и прочее и прочее
Простые растровые редакторы типа Paint могут только добавить тест, рисовать от руки или простые геометрические фигуры, обрезать, изменить размер
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
if a.Rows.SelectMany(x->x).Sum mod 21=0 then
Writeln('Сумма элементов одновременно делится на 3 и на 7')
else
Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.
Примеры
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
73 -53 69 -94 -38 50 30
-9 63 54 28 -56 68 21
-97 18 -80 68 86 -27 -3
33 -30 -17 6 -69 -95 -81
Сумма элементов одновременно не делится на 3 и на 7
Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
-53 14 50 52
-81 55 14 -89
99 -53 37 96
73 27 -8 -85
0 -8 46 50
Сумма элементов одновременно не делится на 3 и на 7