76

Дано натуральное число N. Найти сумму цифр этого числа. (Qbasik)

duster 14 марта 2023

Дано натуральное число N. Найти сумму цифр этого числа. (Qbasik)

категория: информатика

88

INPUT A%S$=STR$ (A%) SUM=0FOR I=1 TO LEN (S$) SUM=SUM+VAL (MID$ (S$,I,1) NEXT IPRINT SUM

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...