zadach248.BAS

{* Задача248 *}

REM basic

' Вывести все пары слагаемых числа n.
' Например, для n=4 ответ будет иметь вид: 0+4; 1+3; 2+2; 3+1; 4+0


CLS
INPUT "Введите n ", n


For i = 0 To n
PRINT i; "+"; n - i
Next i

End