Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lox54
15.02.2020 12:02 •
Информатика
Надо решить то что на фото и то что я сейчас напишу в скобках , и это всё надо написать в языке паскаль " сумма цифр четырёхзначного числа "
Показать ответ
Ответ:
milanatkaleeer
06.10.2020 10:01
Если сумма цифр это всё, то вот. работает не только для 4-значных чисел.
var a, b, sum : integer;
begin
readln(a);
while a > 0 do
begin
b := a mod 10;
sum := sum + b;
a := a div 10;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
darilinamoo
28.10.2020 04:32
Какие из следующих событий или процессов можно использовать для передачи или получения информации : вспышка света, школьный звонок, восход солнца ,светофор, журчание ручника,...
Санек1985
28.10.2020 04:32
Какое значение будет иметь переменная g в выражении g: = 42/2 + 4? а. 1; б. 7; в. 21; г. 25. 5. какое значение будет иметь переменная m в результате выполнения м: = 20/10...
Лизокккккек
02.10.2022 18:23
Решить по : найти кол-во букв о в введенном тексте. -2: найти среднее арифметическое отрицательных чисел из массива а, состоящего из n элементов. -3: правда ли что слово начинается...
steshina27
03.11.2022 04:02
Используя правило двоичного кодирования, определите минимальный объем данного изображения в битах и кратным им величинам. дан: рисунок размером 7х7 см. (в одном сантиметре...
146727
18.02.2022 12:35
Придумать крутое имя пользователя для инстаграмм к имени sarkis. заранее )...
eugenybusuek
20.05.2023 00:19
Цветное с палитрой из 256 цветов изображение состоит из миллиона точек. Изображение сжали, уменьшив количество цветов до 32. Какой информационный объем имело изображение,...
aantip
17.06.2021 10:17
(изи-изи , 10 ! ) напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно. (через repeat)...
rustamzade2018
25.09.2021 21:56
Составить алгоритм, блок-схему, программу вычисления функции y =0,5*sqr(x) +sqrt(x) +2 для всех целых x из промежутка[-20; 20] !...
alinalisnenko
18.06.2021 16:54
Он казался мне прекрасным до сладкого замирания в груди. выпишите основы...
Sofiko20017
18.06.2021 16:54
Решить , ! определите массу оксида меди (ii), который образуется при взаимодействии 12,8г меди с кислородом. !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b, sum : integer;
begin
readln(a);
while a > 0 do
begin
b := a mod 10;
sum := sum + b;
a := a div 10;
end;
writeln(sum);
end.