Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
LineyNikki
03.12.2020 22:17 •
Информатика
Дано трехзначное число. найдите сумму его цифр. входные данные вводится целое положительное число. гарантируется, что оно соответствует условию . выходные данные выведите ответ на . (примеры: входные данные-179,выходные данные-17) решить в паскале
Показать ответ
Ответ:
Sodadus
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 оценок)
Популярные вопросы: Информатика
7rus790
20.06.2022 11:21
Python. В магазине присутствуют товары некоторым из них дать определение Залежались , и для таких товаров делать скидку 50%....
vk2931416haker
25.10.2022 23:29
Задание 2 1 Запустить текстовый редактор Word и набрать следующий текст: Оптические диски (компакт-диски) – это устройства для долговременного хранения информации, а также...
anait87
27.11.2020 10:54
Вывести на экран N строк. В строках с четными номерами вывести по 5 чисел, равных номеру строки. В строках с нечетными номерами вывести 4 единицы. Напишите программу на...
Meowmeowmi
28.08.2020 06:20
Напишите программу, которая заполняет массив первыми n натуральными числами и выводит его. входные данные входная строка содержит размер массива n . гарантируется, что...
pytbrain2007
28.08.2020 06:20
Даны четыре числа составить алгоритм вычисления среднего арифметического этих чисел...
Lapka298
16.12.2022 15:30
Составьте план сочинение роман “обломов” и. а. гончарова не утратил своей актуальности и своего объективного значения и в наше время, ведь в нем заложен общечеловеческий...
макспростомакс1
16.12.2022 15:30
Напишите список растений которые не занесены в красную книгу...
nusunusretp0ale8
16.12.2022 15:30
За первый день вспахали 30% поля, за второй 9: 14 (девять четырнадцатых) остатка, а за третий 15 га. какова площадь поля?...
eliseygrid53
16.12.2022 15:30
Объём деревянного бруска равен 200 см в кубе. какова его масса,если плотность дерева равна 600 кг/м в кубе....
Анна02000
16.12.2022 15:30
Написать сочинение на тему: әлемнің әміршісі - еңбек...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.