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

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

Question

Белла

15 августа, 23:41

+5

Ответы (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 сомножителей).