Программа для вычисления суммы n чисел

Question

Программа для вычисления суммы n чисел

Экономика

Гость

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

Гость

СLS a: INPUT n IF n<1 OR INT(n)<>n THEN PRINT "не может быть": GOTO a FOR i=1 TO n s=s+i NEXT i PRINT "Сумма"; n; "чисел равна"; s END

Accepted Answer

Если правильно понял,то вот var n,i,sum:integer; begin repeat write ('N = '); readln(n); until n>0; sum:=0; for i:=1 to n do sum:=sum+i; writeln ('Summa: ',sum); readln; end.