Задание по информатике Помогите пожалуйста Номер 2 и 3

Question

Задание по информатике
Помогите пожалуйста
Номер 2 и 3

---

Answer 1

Пишу на QBasic
INPUT A
FOR I = 1 TO 3
IF A MOD 10 = 3 THEN
K=K+1
END IF
A=A\10
NEXT I
PRINT K