Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nutka1980
26.07.2021 16:39 •
Информатика
Свходные данные вводится натуральное число x. выходные данные выведите сумму цифр числа x. примеры входные данные 123 выходные данные 6 входные данные 102 выходные данные 3
Показать ответ
Ответ:
megadruzhinins
28.07.2020 21:26
Var
x,s:integer;
begin
write('x=');
readln(x);
while x>0 do
begin
s:=s+(x mod 10);
x:= x div 10;
end;
writeln('s=',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nikitamarar2177
07.07.2022 22:29
Где находится команда сортировать в microsoft office word 2007...
melochun1
24.04.2021 13:05
9) Составить алгоритм упорядочивания трех чисел x, y, z по возрастанию Блок схема...
Ghdgfhs
19.01.2021 11:13
С++ Создать класс Дата для работы с датами в формате «рик.мисяць.день». реализовать различные виды конструкторов, методы вычисления даты через заданное количество...
slobodzean02
09.11.2020 15:58
Вводится последовательность из n произвольных целых чисел. найти количество введенных нулей....
Shermetovelyar552
09.11.2020 15:58
Вводится последовательность из n целых чисел. найти сумму всех отрицательных чисел....
слар
09.11.2020 15:58
Вочереди в столовую руслан саша люда ксюша и артем стоят в одной друг за другом. руслан соит помле люды. саша стоит до руслана, но после ксюши. ксюша др люды, но она...
Алиналабвдк
27.06.2020 11:10
Подалуйста, программа нужна в массивах.. у вас есть доллары. вы хотите обменять их на рубли. есть информация стоимости купли-продажи в банках города. в городе 15 банков....
misszephir25
21.09.2020 19:47
Найдите сумму элементов трех одномерных массивов а(10),в(20),с(30).вычислите суммы элементов одномерного массива ,оформить в виде функции....
vinnikdanil
27.03.2023 02:33
Основными характеристиками процессора являются: 1. bios, емкость озу, тактовая частота 2. адресное пространство, разрядность, bios 3. емкость озу, тактовая частота,...
Dimo558
27.03.2023 02:33
Дано натуральное число n.выяснить , является ли оно простым .определить функцию,позволяющую распознавать простые числа....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x,s:integer;
begin
write('x=');
readln(x);
while x>0 do
begin
s:=s+(x mod 10);
x:= x div 10;
end;
writeln('s=',s);
end.