Программа на паскале вычислить произведение 1*2*3*4*...*5n если n=5
Можно точнее?
программу надо написать
нам так учитель продиктовала
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.
забыла написать, что ответ будет 120.
а что если надо получить ответ 25
посмотри сама - 1*2*3*4*5=120. как можно получить 25?
а да
можешь еще помочь ?
попробую
вычислить сумму 1+1/2+1/3+1/4+...+1/20+n
аналогично, только :1) var p:real; 2) цикл будет от 1 до 20 и 3) вместо р:=р*i будет p"=p+1/i/ После цикла добавить команду p:=p+n и вывести результат