zadach5.BAS

{* Задача5 *}

REM basic

' Определить сумму ASCII-кодов символов,составляющих строку a$.Вывести полученное значение и строку b$,состоящую из символов,ASCII-коды которых на заданное число n больше соответствующих симвлов строки a$


CLS
INPUT "Введите a - ", a$
INPUT "Введите n - ", N
For i = 1 To LEN(a$)
    u = u + ASC(Mid$(a$, i, 1))
    b$ = b$ + CHR$(ASC(Mid$(a$, i, 1)) + N)
Next i
PRINT "сумма - "; u
PRINT "b$="; b$
End