qBasic

[Floro Flores]

Ребята,помогите с задачами на бэйсике ,пожалуйста!
1) Дано натуральное число.Если в нем есть цифры a и b,то определить какая из них расположена правее.
2)Даны вещественные числа a1,a2,...,an.Заменить нулями те из них,величина которых по модулю больше максимального числа
заранее спасибо!

[Floro Flores]

Неужели никто не поможет товарищи!!!???

[Z1000000]

CLS
RANDOMIZE TIMER
LINE INPUT "Введите натуральное число: "; N$
INPUT "Введите цифру A: "; A$
INPUT "Введите цифру B: "; B$
L = LEN(N$)
FOR i = L TO 1 STEP -1
IF MID$(N$, i, 1) = A$ THEN
PRINT "Правее цифпа :", A$
EXIT FOR
ELSEIF MID$(N$, i, 1) = B$ THEN
PRINT "Правее цифра :", B$
EXIT FOR
END IF
NEXT i

[Floro Flores]

Спасибо огромное братан!