Вводиться число А меньше 1000. Нужно определить сумму его цифр S и разность A-S- Basic(Бейсик)

1
2
3
4
5
6
7
8
INPUT a
b=a
DO b<>0
s=s+b MOD 10
b=b\10
LOOP UNTIL b=0
PRINT"summa cifr=";s
PRINT "raznost=";a-s

Leave a Comment