Найти количество чётных цифр натурального числа n- QBasic(Бейсик)

disel
1
2
3
4
5
6
INPUT "vvedite chislo ", a
WHILE a > 0
    IF (a MOD 10) MOD 2 = 0 THEN n = n + 1
    a = a \ 10
WEND
PRINT n

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment