Найти сумму всех положительных чисел, не превышающих данного натурального числа N. программа на паскале.

Question

Найти сумму всех положительных чисел, не превышающих данного натурального числа N. программа на паскале.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Program Summa; Uses Crt; var n,s,i:longint; begin clrscr; write('Введите N: '); readln(n); s:=0; for i:=1 to n do s:=s+i; writeln('Сумма всех положительных чисел меньших чем N:',s); readkey; end.