|
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
|