1) составьте программу вычисления произведения чисел от 1 до 10 (123..) 2)составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10 3)составьте программу, которая находит сумму квадратов чисел от 1 до 10

177

458

Посмотреть ответы 2

Ответы на вопрос:

vovazvyagin

Информатика

4,7(62 оценок)

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin var s: =range(1,10); writeln(s.aggregate(1,(p,q)-> p*q)); writeln('s=',s.where(k-> k.iseven).sum,', п=', s.where(k-> k.isodd).aggregate(1,(p,q)-> p*q)); writeln('s2=',s.select(k-> k*k).sum) end. результат 3628800 s=30, п=945 s2=385