Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ruma1974
30.07.2021 12:23 •
Информатика
Дано натуральное число n. вычислить сумму цифр этого числа.
Ответ:
niggaeasyreal
24.05.2020 05:21
var n,s:integer;
Begin
read(n);
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
София6451
30.01.2020 07:00
Можно ли написать такую программу на pascal возможно ли написать калькулятор только со строкой ввода и одной кнопкой, по нажатии которой, решался пример, вводимый в эту самую строку...
Даша1707
25.03.2022 21:17
Три реки дон,северский донец и сал протекают в городах семикаракорс,ростов,каменск.северский донец протекаетне в семикаракорске, а дон не в каменске и не в семикаракорске. река ростова...
shaldinaalbina
25.03.2022 21:17
1,2,3,,5,6. кто что сможет б запису чисел за певної кількості знаків називають : системою числення,буквами,алфавітом,арифметикою? 2.число вибране для утворення системи числення називають...
сергейважный1
25.03.2022 21:17
Во время экзамена по информационным технологиям два члена экзаменационной комиссии, не знакомые школьнику, предложили ему выбрать один из двух билетов: трудный или легкий. преподаватели...
lukash231082
25.03.2022 21:17
Составить программу в паскале: для заданного двумерного массива подсчитать сумму элементов в каждой строке.сформировать одномерный массив и вывести в нем эти суммы по возрастанию...
omusheg
25.03.2022 21:17
Вгорах, рядом с которыми живёт племя тумба-юмба, есть 4 пещеры. в каждой из них может быть (а может не быть) клад. можно ли закодировать сведения о том, где есть клады, используя...
Tanya20042017
25.03.2022 21:17
Назовите современные цифровые носители информации...
Макс777333
25.03.2022 21:17
Найдите сумму sin(1)+sin(2)+) и число слагаемых до первого отрицательного слагаемого....
AlexCameron
25.03.2022 21:17
Составить программу решения в паскаль авс. дано вещественное число а и целое число n( больше0). используя один цикл, найти сумму 1+ а +аквадрат+акуб+ в энной степени...
nastykatymari
14.05.2021 10:17
Написать программу на языке Paskal. Сторона а первого прямоугольника равна 4 м, а сторона b — 7 м. У каждого следующего прямоугольника сторона а увеличивается на 1 м, а сторона b...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var n,s:integer;
Begin
read(n);
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
End.