profile
Опубликовано 5 лет назад по предмету Информатика от antonishyna1997

Знайти суму всіх парних чисел від 1 до n. паскаль

  1. Ответ
    Ответ дан archery
    //PascalABC.NET 3.1 сборка 1200
    begin
      writeln(range(1, ReadInteger('n =')).Where(x -> x mod 2 = 0).Aggregate((s, x)-> x + s));
    end.

Самые новые вопросы