Составить программу

Дано целое число N (> 0). Найти произведение 1 · 2 · 3 · ... (N сомножителей).

Question

Максиан

1 мая, 10:50

+3

Ответы (1)

Знаете ответ?

Федула · Answer 1

Var x, y, z:integer;

Begin

Read (x) ;

z:=1;

For y:=1 to x do z:=z*y;

Write (z) ;

End.

Составить программуДано целое число N (> 0). Найти произведение 1 · 2 · 3 · ... (N сомножителей).