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

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

Question

Юлий

25 января, 17:22

+4

Ответы (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