tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано трехзначное число. найдите
Дано трехзначное число. найдите сумму его цифр. входные данные вводится целое положительное число. гарантируется, что оно соответствует условию . выходные данные выведите ответ на . (примеры: входные данные-179,выходные данные-17) решить в паскале
анна2247
1 10.07.2019 07:20
2
Ответы
Бла161
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
тикон3
15.05.2020 09:56
1. Условие задания:Что получится в результате работы фрагмента программы?m:=17;for i:=1 to 7 dom:=m-6;writeln (m);2.Условие задания:Что получится в результате работы...
мам2017
15.05.2020 09:56
Имеется IP-сеть 223.224.201.0. Системный администратор Чебурашка по заданию Главного администратора Геннадия ака Крокодил разделил сеть на части. По регламенту...
Барбоси
30.09.2019 00:40
Лишний объект в перечне монитор сканер клавиатура микрофон...
Wow019282
30.09.2019 00:40
)числа 139,55 из десятичной системы счисления перевести в 2-ую, 8-ую, 16-ую....
sweater22weather
07.10.2019 19:30
Найти все четные числа, которые не делятся на 6 в диапазоне от 0 до n. вывести их на экран...
dghfgjuf
07.10.2019 18:08
Умистера фокса есть карточки, на каждой стороне которых нарисована или машина или какой-то зверь. карточек, на которых есть животное (хотя бы с одной стороны) —...
gulia2369
25.04.2020 19:35
1. Дана запись адреса файла. Укажите имя корневого каталога, фaйла, каталога 1 уровня. Рабочий стол\ Мои документы/Школа/ Старшая школа/ выпуск 2006.txt 2. Запишите...
mikerinavera
25.04.2020 19:34
Написать программы решения примеров ПаскальY={2x-12x {cos²xX 0X 0...
Черноболь666
25.04.2020 19:34
Какие из нижеперечисленных команд НЕ относятся командами для кодирования объектов AutoCAD 1. масштабирование 2. стирания 3.штриховка 4.фаска...
dauletkulova
25.04.2020 19:34
до ть будь ласка , який оператор обчислює f=n...
Популярные вопросы
с английски может быть я его уже сделала ...
2
4. Сравни образы героев сказки. Выскажи своё отношение к ним....
1
Які ви знаєте газетні жанри...
2
И DOR за3 см.Вычисли периметрбольшого прямоугольника.площадьСравни.400...
2
Чим відрізняється море від затоки...
3
Выполните умножение: а) -8*12; б) -14*(-11) в) 0,8*(-2,6) г)...
2
Очень , завтра уже будет поздно! 1. В результате вылета α-частицы...
1
Жастар - біздің болашағымыз тақырыбына бес зат есім, бес сын...
1
Ғасырдың ортасына 1. Ашық тест тапсырмалары1.1. Алғаш рет қазақ...
1
АНКЕТА ГЕРОЇВ НОВЕЛИ «ОСТАННІЙ ЛИСТОК» Імʹя Джонсі Сью Містер...
1
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.