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

Question

Антоша

3 февраля, 06:37

+1

Ответы (1)

Знаете ответ на вопрос?

Албин · Answer 1

Readln (m) ;

rez:=1;

while (i<=m) do

begin

rez:=rez*m;

inc (m) ;

inc (i) ;

end;

write (rez) ;