<em>Было занятно сделать все это в виде одного оператора)))</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('->').ToWords(Arr(',','.'))
.Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
.Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
.SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
.Println(',')
end.
<u>Пример</u>
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
примерно 45 минут. Сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. Потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. Два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. Переплыв реку он даёт лодку матери. Она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.
Алгоритм может быть, например, таким. Если нужно вывести нулевое число Фибоначчи, выведем 1, иначе будем считать. Сохраним в переменную номер текущего числа Фибоначчи (изначально 1) и значения текущего и предыдущего элементов (в начале 1 и 1), затем в цикле будем пересчитывать значения элементов, увеличивая номер текущего элемента. Когда номер элемента совпадёт с нужным, выведем ответ.
Реализация (python 3):
n = int(input())
if n == 0:
print(1)
else:
prev, curr = 1, 1
i = 1
while i < n:
curr, prev = prev + curr, curr
i += 1
print(curr)
Запустив программу, можно узнать, что f10 = 89, f25 = 121393, а f40 = <span>165580141</span>
var i, sum:integer;
n:string;
begin
readln(n);
for i:=1 to length(n) do begin
if StrToInt(n[i]) mod 4 <> 0 then
sum:=sum+StrToInt(n[i]);
end;
writeln(sum);
end.
Классификации на математике: числа бывают: натуральными(1,2,3); целыми (2,-5); дробными(6,73). На русском: предложения бывают: простыми,сложными: сложноподчинёнными,сложносочинёнными,сложными с разными видами связи,сложные бессоюзные.
