с использованием цикла While ... do составить программу,которая рассчитывает выражение...

Question

с использованием цикла While ... do составить программу,которая рассчитывает выражение В=m(m+1)...(m+m) в случае целого числа m

Answer 1

Readln(m);
rez:=1;
while (i<=m) do<br>begin 
rez:=rez*m;
inc(m);
inc(i);
end;
write(rez);