ЕК Елена Косилова задача на языке Паскаль, Желательно оператор whileВычислить: P=1+(1*2)+(1*2*3)+(1*2*3*…*R).
Алексей Зайцев program a; uses crt; var r,s,p,i,j:Integer; begin clrscr; write('vvesti celoe chislo R-->'); readln(r); p:=0; i:=1; while i