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

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

Question

Информатика

Артемчик

8 января, 14:47

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

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