Дана непустая последовательность чисел.найти сумму цифр второго разряда всех чисел- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
DO: CLS : PRINT
LINE INPUT " Vvedite posledovatelnost chisel: ", Pos$
LOOP WHILE Pos$ = ""
  DO: tp = tp + 1
    s = ASC(MID$(Pos$, tp, 1))
    IF s < 48 OR s > 57 THEN f = 0 ELSE f = f + 1
    IF f = 2 THEN sum = sum + VAL(CHR$(s))
  LOOP UNTIL tp = LEN(Pos$)
PRINT "Summa ="; sum
1
2
3
4
5
6
print "vvedite chisla posledovatelnosti. okonchanie posledovatelnosty - vvod cifry 0"
do
input"vvedite chislo ",a
s=s+(a div 10) mod 10
loop until a=0
print s
1
2
3
4
5
6
PRINT "vvedite chisla posledovatelnosti. okonchanie posledovatelnosty - vvod cifry 0"
DO
    INPUT "vvedite chislo ", a
    s = s + (a \ 10) MOD 10
LOOP UNTIL a = 0
PRINT s

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

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

Leave a Comment