1 2 3 4 5 6 7 | INPUT a b = a MOD 10 DO IF b = a MOD 10 THEN k = k + 1 a = a \ 10 LOOP UNTIL a = 0 PRINT k |
Следующий вариант
1 2 3 4 5 6 7 | INPUT a b = a MOD 10 WHILE a <> 0 IF b = a MOD 10 THEN k = k + 1 a = a \ 10 WEND PRINT "poslednyaya cifra povtoryaetsya "; k; "v raz" |
Тестирование выполнено в программе QB64 ( Скачать )