//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
Жизненный опыт которого передает родитель ребенку
У меня получилась Криптография-методы шифрования информации
//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.
Таблицей:
Маша Полина Валя
Галузина - + -
Юсупова + - -
Сидорова - - +
Объяснение:Маша не Галузина - ставим -, Валя в 8 классе а Галузина в 7 - значит Валя не Галузина, остаётся что Галузина - Полина, мама Вали домохозяйка, а мама Юсуповой работает в банке, значит Валя не Юсупова, значит Валя Сидорова, и остаётся что Маша Юсупова.