Ребят помогите нада написатьребят помогите нада написать програму в паскале через оператор for
напишіть програму обчислення добутків
a(a+1)(a+2)...(a+n+1)

1

Ответы и объяснения

2014-04-14T16:47:12+00:00
Program qq;
var i:byte;
     a,n,s:integer;
begin
 writeln ('Введите a');
  readln (a);
 writeln ('Введите n');
  readln (n);
for i := 1 to n+1 do 
 s:= s + a+i ;
s:= s*a;
writeln ('Ответ :' , s); 
end.