Дано натуральное число.Определить номер цифры,равной сумме цифр числа- QBasic(Бейсик)

disel
1
2
3
4
5
6
INPUT "vvedite chislo ", n
DO WHILE n > 9
    IF n MOD 10 <> 0 THEN f = 1
    n = n \ 10
LOOP
IF f = 0 THEN PRINT "1 cifra=summe cifr chisla" ELSE PRINT "net takoj cifry"

Следующий вариант

1
2
3
4
5
6
7
INPUT "vvedite chislo ", n
DO
    a = n MOD 10
    s = s + a
    n = n \ 10
LOOP UNTIL n = 0
IF s = a THEN PRINT "1 cifra=summe cifr chisla" ELSE PRINT "net takoj cifry"

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

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

Leave a Comment