Предмет: Информатика,
автор: almira132
программа на паскале
вычислить произведение 1*2*3*4*...*5n
если n=5
Ответы
Автор ответа:
0
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.
var i,n, p: integer;
begin
n:=5;
p:=1;
for i:=1 to n do p:=p*i;
write('p=',p)
end.
Автор ответа:
0
а да
Автор ответа:
0
можешь еще помочь ?
Автор ответа:
0
попробую
Автор ответа:
0
вычислить сумму 1+1/2+1/3+1/4+...+1/20+n
Автор ответа:
0
аналогично, только :1) var p:real; 2) цикл будет от 1 до 20 и 3) вместо р:=р*i будет p"=p+1/i/ После цикла добавить команду p:=p+n и вывести результат
Интересные вопросы
Предмет: Информатика,
автор: Pomogitess
Предмет: Қазақ тiлi,
автор: kaskenovasvetlana86
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: serebren1
Предмет: Химия,
автор: gabbasovnadir