Работа в Паскале. Даны действительное число a, натуральное число n. Вычислить: a(a+1)...(a+n-1).
Colin03
2
03.11.2020 15:31
0
Другие вопросы по теме Информатика
али426
09.12.2020 08:27
Шоколадикус
09.12.2020 08:27
saimon0
09.12.2020 08:25
khfozilzhonov
18.05.2019 02:30
kvastalkerr
24.06.2019 17:40
МистрКрутой11
08.06.2019 04:30
helpme168
08.06.2019 04:30
ArtemPatsaliuk
08.06.2019 04:30
Бека672
08.06.2019 04:30
Популярные вопросы
- Можем ли мы причислить кожу к выделительным органам?...
3 - Втреугольнике rstсторона rsна 12 см меньше стороны st, и на 27 см меньше...
1 - Расстояние между а и в на карте2.8см маштаб карты 1: 7 500 000. найдите...
3 - Решите уравнение: a*(a+1)*(a+2)*(a+3)=250 ответ будет равен 61, но...
1 - Примеры поступков духовно-богатого человека. не из интернета....
2 - Написать сообщение на тему: какие были ремёсла и на что их меняли....
1 - Каким свойствам воздуха появляется ветер?...
2 - Как во множественном числе будет слово brush...
1 - Как сложить сtg+ctg одного угла, если не сложно решите пример ctg 13pi/12-...
2 - Составить рассказ из данных слов: из за туч,радуга,дождь,грипп,небо,облако,земля,ночь,звездопад,путь...
3
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.