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

disel
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"

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

Leave a Comment