Сооставие програму которая вычесляет произведения чисел от 2 до 10 на турбопаскаль

108

446

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

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

MercerNani

Информатика

4,8(30 оценок)

Var i, s: integer; begin s: =1; for i: =2 to 10 do s: =s*i; writeln(s); end.

VanilRio

Информатика

4,4(2 оценок)

// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin seqgen(17,x-> 0.25*x-2).tabulate(x-> cos(2*(newline) .select(t-> t[1]).where(y-> y< 0).average.println end. результат (-2,-0.653643620863612) (-1.75,-0.936456687290796) (-1.5,-0.989992496600445) (-1.25,-0.801143615546934) (-1,-0.416146836547142) (-0.75,0.0707372016677029) (-0.5,0.54030230586814) (-0.25,0.877582561890373) (0,1) (0.25,0.877582561890373) (0.5,0.54030230586814) (0.75,0.0707372016677029) (1,-0.416146836547142) (1.25,-0.801143615546934) (1.5,-0.989992496600445) (1.75,-0.936456687290796) (2,-0.653643620863612) -0.759476651369786