Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
shahmina123
06.05.2023 00:53 •
Информатика
Как в pascal записать сумму цифр целого числа? это ! и главное трехзначного числа,без сумашедших кодов на 5 страниц!
Показать ответ
Ответ:
Amirkazakov
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 оценок)
Популярные вопросы: Информатика
vladimirrr74
04.09.2020 05:38
Информационный объем одного символа некоторого сообщения равен 6 битам. сколько символов входит в алфавит, с которого составлено это сообщение?...
kondakovvasenk
17.04.2022 15:05
Кодировка символов. 10) предложение содержит 112 символов. определите размер предложения в кодировке unicode. 11) статья содержит 5 страниц. на каждой странице 65 строк....
котик2107
17.04.2022 15:05
Составьте пары сравнимых понятий и укажите их общий признак. понятия: веселье, осень, монитор, клавиатура, грусть, стол, гуляш, арбуз, самолет, автомобиль, береза, диван,...
Элизаббета
17.04.2022 15:05
Составьте пары сравнимых понятий и укажите их общий признак. понятия: веселье, весна, осень, монитор, клавиатура, грусть, стол, береза, автомобиль, диван, осина, арбуз,...
alisgranger
09.11.2020 23:59
1. Які дії можна виконувати над об єктами в середовищі scratch? Які засоби для цього можна використати? 2. Як можна змінювати значення властивостей об єктів під час виконання...
113020021
06.03.2022 08:10
Решите задание по информатике...
MariaUt
11.10.2020 06:16
Доказать что наименьшее общее кратное это примитивно рекурсивная функция...
JasminNuar544
13.08.2022 23:19
Ребята, нужно составить алгоритм структуры Ветвления . Во вложенном файле нужно выполнить 16 номер!...
Nemsix
25.08.2021 01:53
Какой будет цвет линии , если нарисовать её левой кнопкой мыши?...
Анека1111111
24.06.2021 06:26
Інформатика програма blender...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.