составить программу в PascalABC.NET

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

Тима77711 Тима77711    3   15.04.2020 11:38    2

Ответы
uylia7 uylia7  13.10.2020 06:56

// PascalABC.NET версия 3.6.2 сборка 2406 от 14.04.2020

begin

 (1..100).Select(p -> p.IsEven ? 2 * p : 3 * p).Print

end.


составить программу в PascalABC.NET Рассмотрите ряд натуральных чисел от 1 до 100. Каждое четное чис
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика