Задание:
Помогите решить задачу! Найти сумму отрицательных и сумму положительных чисел на отрезке от А до В. cwhile
Решение:
c "for" var i,a,b,sum: integer; beginreadln (a,b); for i: =a to b dosum: =sum+i; writeln (sum); end.
Знаете другой ответ?
Помогите решить задачу! Найти сумму отрицательных и сумму положительных чисел на отрезке от А до В. cwhile
c "for" var i,a,b,sum: integer; beginreadln (a,b); for i: =a to b dosum: =sum+i; writeln (sum); end.
Знаете другой ответ?