Ответы
Ответ дал:
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 и вывести результат
Похожие вопросы
2 года назад
2 года назад
9 лет назад
9 лет назад