Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Darima111
04.11.2020 08:20 •
Информатика
Дано шестизначное число. найти сумму его цифр. величины для хранения всех шести цифр числа не использовать. сделать программу в паскале
Показать ответ
Ответ:
ukrkaravan757
08.10.2020 09:16
Var a,s:integer;
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
123456
s = 21
0,0
(0 оценок)
Популярные вопросы: Информатика
nikolay2045
16.06.2021 14:41
Сколько рублей в 5 голосовых в вк?...
denis20043601
19.07.2020 15:15
Заданы две клетки шахматной доски, показанные на рисунке. ответь на вопросы.1) Длина пути между клетками:2) Клетки одного цвета? (ДА/НЕТ): !!...
У4КГРВ
12.05.2022 02:46
Заполни пропуски в тексте - это машина для обработки информации. у него есть оперативная . с устройств человек вводит информацию в память компьютера. с можно ввести текст , а с рисунков....
bykhan2
25.04.2023 05:04
Разработать и начертить схему алгоритма для вычисления выражения: s= (2x+y)(x-y); протестировать алгоритм для следующих исходных данных: x=2, y=1....
Wild044Rose
20.02.2020 09:00
Что будет напечатано программой? var x, y: char; procedure P(x: integer); const y=false; begin write(x, y) end; begin x:= * ; y:= 1 ; P(1); write(x, y); end....
baga27
23.01.2022 03:12
Напишите программу, которая определяет, оканчивается ли год с данным номером на два нуля. Если год оканчивается, то выведите «YES», иначе выведите «NO». Ввод 1: 2200 Вывод 1: YES...
koiiik1p0725i
16.04.2020 17:31
1. Какие события в развитии технической базы вычислительных машин стали вехами в истории операционных систем? 2. В чем состояло принципиальное отличие первых мониторов пакетной обработки...
Yskakova206
12.05.2020 22:22
Верны ли следующие утверждения? А Молочное животноводство выгодно развивать в Волго-Вятском районе Б. Пшеницу, подсолнечник, сахарную свёклу выгодно выращивать в Центрально-Чернозёмном...
aliosha1337
30.06.2021 02:41
Навколо прямокутного паралелепіпеда описали кулю. Знайти площу її поверхні, якщо виміри паралелепіпеда 8 ,11 ,16...
одиннадцать1
28.09.2021 05:24
445 Выпишите из данного отрывка глаголы будущего времени. В какойформе они употреблены в простой или сложной? Объясните смыслвыражения делать нечего.ролл98)А она всё падала и падала....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln('s = ',s);
end.
Пример:
123456
s = 21