Найти произвдение чисел от 1 до N, N-вводится с клавиатуры. Использовать цикл с параметром
Найти произвдение чисел от 1 до N, N-вводится с клавиатуры. Использовать цикл с параметром
Гость
Ответ(ы) на вопрос:
Гость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.
Так?)
Не нашли ответ?
Похожие вопросы