Помогите составить 10 вопрос по темам: Алгоритмы…

CLSINPUT "Enter number: ", NUMNUMDIG=0NUMEVEN=0NUM=ABS (NUM) ' handle negative numbersIF NUM=0 THEN ' handle zero NUMDIG=1 NUMEVEN=1END IFDO WHILE NUM > 0 DIG=NUM MOD 10 NUM=(NUM — DIG) / 10 NUMDIG=NUMDIG+1 IF DIG MOD 2=0 THEN NUMEVEN=NUMEVEN+1 END IFLOOPPRINT "Number of digits: ", NUMDIGPRINT "Number of even digits: ", NUMEVEN