Работа в Паскале. Даны действительное число a, натуральное число n. Вычислить: a(a+1)...(a+n-1).
Ответы
Ответ дал:
1
var
a,s:real;
n:integer;
begin
writeln('a*(a+1)*...*(a+n-1)');
write('a: '); readln(a);
write('n: '); readln(n);
s:=1;
repeat
s:=s*(a+n-1);
dec(n);
until n=0;
writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад