Комментарии: Решаем задачи Абрамян на Паскале. For19

Автор: Bronislav

Bronislav — Sun, 27 Jan 2019 20:25:34 +0000

1

2

3

4

5

6

7

8

9

10

program For19;//pabc.net

//uses PT4;

begin

//Task('For19');

var N := ReadInteger();

var Res := Range(1, N).Aggregate(1.0, (Accum, x)-> Accum * x);

Print(Res)

end.

1

2

3

4

5

6

7

8

9

10

11

program For19;//pabc.net

//uses PT4;

begin

//Task('For19');

var N := ReadInteger();

var Res := 1.0;

Range(1, N).ForEach(x -> begin Res *= x end);

Print(Res)

end.