Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
aarseni2006
08.07.2020 20:07 •
Информатика
Дано трехзначное число. найдите сумму его цифр. входные данные вводится целое положительное число. гарантируется, что оно соответствует условию . выходные данные выведите ответ на . (примеры: входные данные-179,выходные данные-17) решить в паскале
Ответ:
ислам1110
03.10.2020 00:02
Var a,s:integer;
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
260807098978
11.08.2020 12:31
Блок-схема,цикл знайти суму перших десяти парних чисел...
molya98981
24.12.2022 06:11
Нужно ввести 3 значное число и поменять цифры например (345; 543)...
tinn1
27.09.2022 17:36
Сколько мегабайт информации содержит сообщение объемом 2 в 33-й степени бит? объясните, , как решать такие ?...
ruslan07072
27.09.2022 17:36
Вкомпьютер вводятся два произвольных положительных числа a1 и a2 - длины сторон двух кубиков. требуется найти объём кубика, большего по размеру. составьте блок-схему и протокол....
olia108
27.09.2022 17:36
Почему локальный диск не обозночается a и b...
anastasiya2056
27.09.2022 17:36
Известны стороны двух треугольников a,b,c и d, e, f. определите какой треугольник ( первый или второй) имеет большую площадь...
Polinakuzmina32
02.01.2022 15:26
40 1)заполнить массив случайным образом и вывести на экран только четные элементы 2)в двумерном массиве действительных чисел найти количество положительных элементов меньших...
elenamatrus777
05.02.2021 23:50
Составить блок схему алгоритма решения найдите корни линейного уравнения ax=b, где a и b- произвольные числа...
epifya
05.02.2021 23:50
На паскале написать.. условия: найти номер элемента массива,модуль разности сумм чисел слева и справа от которого наименьший.значение элемента с этим номером при суммировании...
ЮлияСтоянова
09.12.2020 17:54
Сжатая на 2 см пружина подбрасывает стальной шар вертикально вверх на 20 см. На какую высоту поднимется шар при сжатии пружины на 4 см,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.