Ответы
Ответ дал:
0
var s,x,n,i:integer;
begin
write('Введите x: ');
readln(x);
write('Введите n: ');
readln(n);
s:=1;
for i:=1 to n do
s:=s*(x-i);
writeln('Произведение равна: ',s);
readln;
end.
Ответ дал:
0
там произведение, а не сумма
Ответ дал:
0
Подправил, чет впарился уже ;w; Спасибо за замечание
Вас заинтересует
1 год назад
1 год назад
1 год назад