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

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

Question

Белла

14 ноября, 19:15

+2

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