Question

программа на паскале
вычислить произведение 1*2*3*4*...*5n
если n=5

Answer 1

program proizv;
 var i,n, p: integer;
begin
 n:=5;
p:=1;
for i:=1 to n do p:=p*i;
write('p=',p)
end.

Answer 2

а да

Answer 3

можешь еще помочь ?

Answer 4

попробую

Answer 5

вычислить сумму 1+1/2+1/3+1/4+...+1/20+n

Answer 6

аналогично, только :1) var p:real; 2) цикл будет от 1 до 20 и 3) вместо р:=р*i будет p"=p+1/i/ После цикла добавить команду p:=p+n и вывести результат