составить программу в PascalABC.NET Рассмотрите - вопрос №1131696311 от maximb164mjqj 23.04.2021 06:01

Question

Информатика: составить программу в PascalABC.NET Рассмотрите ряд натуральных чисел от 1 до 100. Каждое четное число в этом ряду увеличьте в 2 раза, а каждое нечетное – в 3 раза. Результат выведите на экран

maximb164mjqj · Answer

// PascalABC.NET версия 3.6.2 сборка 2406 от 14.04.2020begin  (1..100).Select(p - p.IsEven ? 2 * p : 3 * p).Printend....