Найти произвдение чисел от 1 до N, N-вводится с клавиатуры. Использовать цикл с параметром

Question

Информатика

Галатея

25 октября, 11:51

Найти произвдение чисел от 1 до N, N-вводится с клавиатуры. Использовать цикл с параметром

+1

Ответы (1)

Знаете ответ на вопрос?

Инюша · Answer 1

Var

i, n, u, c:integer;

begin

c:=1; u:=1;

writeln ('Введите n:') ;

readln (n) ;

for i:=1 to n do begin

c:=c*u;

inc (u) ;

end;

writeln ('Произведение: ', c:10) ;

readln;

end.

Так?)