// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(13,100,999); a.Println; var s:=a.Where(t->t.ToString.Contains('2')); Writeln('Сумма отобранных чисел равна ',s.Sum, ', их количество равно ',s.Count) end.
Пример 447 568 576 760 708 373 474 764 520 907 654 623 414 Сумма отобранных чисел равна 1143, их количество равно 2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку