ОЧЕНЬ НУЖНА Отчаянный писк
Контрольная работа
макс.
Дедлайн: 24 дек. 12:18
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Из чёрной дыры большого дупла, как из окна, высовывались четыре маленьких бельчонка.
Они вертели во все стороны острыми мордочками, толкались, налезали друг на друга, путаясь длинными голыми хвостами. И всё время, ни на минуту не умолкая, они пищали в четыре рта, на один голос.
– А ну-ка, прекратите эту музыку и расскажите толком, что у вас случилось, – скомандовал Нильс.
Но в ответ ему раздался такой отчаянный писк, что у Нильса в ушах зазвенело.
– Тирле упал! Тирле пропал! Мы тоже упадём! Мы тоже пропадём! – верещали бельчата.
Напишите программу, которая выяснит, что тут у них произошло.
Формат ввода
Вводится целое число n, затем n строк.
Формат вывода
Сначала вывести количество строк, в которых есть слова: упал, пропал, упадём или пропадём. Затем суммарную длину строк, в которых этих слов нет. Формат вывода:
Строк с падением:
Суммарная длина остальных:
Пример 1
Ввод Вывод
4
Расскажите толком, что у вас случилось?
Тирле упал!
Он влез на спину Дирле, а Пирле толкнул Дирле и Тирле упал.
Позовите-ка мне белку Сирле, это ваша мама, что ли?
Строк с падением: 2
Суммарная длина остальных: 90
Пример 2
Ввод Вывод
5
Тирле упал!
Тирле пропал!
Мы тоже упадём!
Мы тоже пропадём!
верещали бельчата
Строк с падением: 4
Суммарная длина остальных: 17
//задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end.
//задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.