Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
одна из возможных форм курсора : прямая
var a,p: real;
i,n: integer;
begin
read(a,n);
p: =1;
for i: = 0 to n-1 do
p: =p*(a+i);
writeln(p);
end.
Популярные вопросы