Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Smpl
05.04.2022 23:22 •
Информатика
Как в pascal записать сумму цифр целого числа? это ! и главное трехзначного числа,без сумашедших кодов на 5 страниц!
Показать ответ
Ответ:
лиана252
30.07.2020 08:22
Var
n,s:integer;
begin
Write('Введите 3х-значное натуральное число: '); Read(n);
s:=(n div 100)+((n div 10) mod 10)+(n mod 10);
Writeln('Сумма цифр числа равна ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dok12369
28.11.2020 04:47
Боря играет с друзьями в «Шляпу». В этой игре пишут на бумажках слова и кладут в шляпу, затем по очереди объясняют значение слов. В шляпе осталось три бумажки. Пока...
Ann1484
26.10.2021 02:31
Как сделать герб Калуги на питоне? Я...
sabinanuray1810
22.04.2023 06:11
ТЕКСТ ЗАДАНИЯ Выбери верное утверждение про соревнование роботов Движение по линии Верных ответов: 1 Размеры и вес робота могут быть любыми. Максимальная продолжительность...
ArseniyZnanija
04.09.2021 08:13
Определите, имена двоих из трёх учеников, которые пришли в школу, если следующие два высказывания истинны: В школу пришли Роберт или Маша, но не оба вместе Неверно,...
googlman
14.08.2021 00:27
Запишите массив, состоящий из 5 элементов. Под каждым элементом укажите его индекс.(Python)...
Trytodo
22.01.2022 10:24
В Python операции с файлами выполняются в определенном порядке, запиши эту последовательность....
машунька0811
31.08.2020 14:47
1. служебное слово var в программе на языке паскаль фиксирует начало раздела программы, содержащего: а) описание переменных б) описание меток в) описание констант...
xhhxjdjdj4
25.07.2022 17:31
2. Восстановите полное имя файла. Файл Онегин.doc хранится на жёстком диске в каталоге ПОЭЗИЯ, который является подкаталогом каталога ЛИТЕРАТУРА. В таблице приведены...
lili247
25.01.2022 18:53
А1=7 а8=-7 s20=? а20=? арифметическая прогрессия...
yaam13
25.01.2022 18:53
Природный комплекс-это устойчивое сочетание 1)животных и растений 2)почв 3)растительности 4)хозяйственной деятельности человека...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,s:integer;
begin
Write('Введите 3х-значное натуральное число: '); Read(n);
s:=(n div 100)+((n div 10) mod 10)+(n mod 10);
Writeln('Сумма цифр числа равна ',s);
end.