Question

помогите с информатикой задача 10. 8 класс надо написать программу для PascalABC​

Answer 1

Ответ:

Как я понял, "первые 300 натуральных чисел" - это числа от 1 до 300.

###PascalABC.NET

begin

 var Rng := Range(1, 300);

 Rng.Where(x -> (x mod 10 = 6) and (x mod 2 = 0)).Println;

 Rng.Where(x -> (x mod 10 <> 6) and (x mod 2 <> 0)).Sum.Print;

end.

Объяснение: