|
|
back to boardDiscussion of Problem 1068. SumПомогите пожалуйста, разве это неверное решение (PascalABC) Posted by Ahmet 19 Oct 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. |
|
|