Помогите решить такое задание Дано натуральное число N. Вычислить y=2*4*6*...(2n). Вводится число n. В цикле типа пока шаг равен
Помогите решить такое задание Дано натуральное число N. Вычислить y=2*4*6*...(2n). Вводится число n. В цикле типа пока шаг равен 2, перебираются все числа от 2 до 2n, шаг равен 2, все числа перемножаются)
Uses crt; var i,s,n:integer; begin s:=1;n:=0; while (n<=0) do begin writeln ('Введите неотрицательное число'); read (n); end; n:=n*2; writeln ('Считаю все числа от 2 до ',n); write ('1'); for i:=1 to n do begin i:=i+1; write ('*',i); s:=s*i; end; writeln ; writeln ('Произведение = ',s); end.
P.s. Программа написана на языке Pascal ABC. По всем вопросам обращаться в комментарии !