Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
skalapendra1212
07.04.2020 17:30 •
Информатика
Дано натуральное число n.найти сумму цифр этого числа.(qbasik)
Показать ответ
Ответ:
вика45890
13.06.2020 02:25
INPUT A%
S$ = STR$(A%)
SUM = 0
FOR I = 1 TO LEN(S$)
SUM = SUM + VAL(MID$(S$,I,1))
NEXT I
PRINT SUM
0,0
(0 оценок)
Популярные вопросы: Информатика
AlinaLove200413
30.11.2020 08:04
Дисплей работает с 16-и цветной палитрой в режиме 64 * 128 пикселей. Укажите объем видеопамяти. Найдите количество уровней громкости звукового файла, если ширина...
Vladko1337lol
10.01.2021 11:47
буду очень благодарна с меня подписка ...
Elenka9272
16.05.2023 23:10
Какие виды списков используются при форматировании текста? * графические маркерыобычные маркерынумерациявсе ответы верны...
dashafirman
21.08.2022 16:04
растровый графический файл содержит цветное изображение с палитрой из 100 цветов размером 20*20 точек.Каков информационный объем этого файла...
s1nedesports
08.11.2022 10:24
Ребята , рили не понимаю, что надо сделать Задание: Ввести матрицу размером 6x4 из целых чисел от 0 до 9. Вычислить вектор из 10-ти элементов как значение количества...
АЙДЫН261
22.03.2023 16:53
Тут есть ошибка? Как это решить вообще?...
Crazy2daisy
13.02.2020 20:50
Какой пункт меню «Вставка» нужно выбрать, чтобы добавить на веб-страницу горизонтальный разделитель? ответ введите в числовой форме....
konstantin42127
28.06.2020 07:04
Разложите на простые множители число 819...
егорка93
28.06.2020 07:04
Вычисли и проверь решение умножением 84 разделить на 3 в 72 разделить на 2 и 52 разделить на 4 в 76 разделить на 2 момогите решить столбиком деление...
Viktoriya3124
28.06.2020 07:04
Из куста ткани длиной19 м сшили 3 одинаковых халата ,расходуя на каждый халат по 3 м.сколько ткани осталось в куске ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
INPUT A%
S$ = STR$(A%)
SUM = 0
FOR I = 1 TO LEN(S$)
SUM = SUM + VAL(MID$(S$,I,1))
NEXT I
PRINT SUM