Написать программу нахождения произведения чисел от

1 до n. Для паскаль abc

Question

Информатика

Наталья

29 октября, 06:08

Написать программу нахождения произведения чисел от

1 до n. Для паскаль abc

+2

Ответы (1)

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

Полинарий · Answer 1

Uses crt;

var

a, n, i:integer;

begin

readln (n) ;

a:=1;

for i:=1 to n do begin

a:=i*a;

writeln (i,'.', a) ;

end;

writeln ('Ответ=', a) ;

end.

Написать программу нахождения произведения чисел от1 до n. Для паскаль abc

Написать программу нахождения произведения чисел от

1 до n. Для паскаль abc