Составьте программу вычисления суммы всех натуральных чисел, не превышающих заданного...

Question

Составьте программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.

Answer 1

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