|
|
вернуться в форумПомогите пожалуйста, разве это неверное решение (PascalABC) Послано Ahmet 19 окт 2023 22:38 var N: integer; begin readln(n); if (abs(n)>10000) then writeln('Îøèáêà ââîäà') else if N>=0 then writeln(((1+n)*n)/2) else writeln(((1+n)*(abs(n)+2))/2); end. |
|
|