Найдите закономерности и продолжите последовательности. а) а, б, в, г, ... б)а, в, д, ё, ... в)Анна Борис, Валентина, Геннадий,
gendo
А) а, б, в, г, д, е, ... — буквы русского алфавита
б) а, в, д, ё, з, й, ... — буквы русского алфавита через одну
в) Анна, Борис, Валентина, Геннадий, Дмитрий, Елизавета, ... — имена, начинающиеся на буквы русского алфавита
г) о, д, т, ч, п, ш, с, ... — первые буквы чисел (Один, Два, Три...)
д) Москва, Абакан, Норильск, Киев, Воркута, Архангельск, ... — "игра в города" — каждое следующее название начинается на последнюю букву предыдущего
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
Программы на Паскале прилагаются.
<em>
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>begin
var a:=ReadReal('a=');
if a>0 then Writeln(0.4*ln(a):0:4)
else Writeln('Логарифм не существует')
end.
<u>Пример</u>a= 2.543
0.3733