Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
сюрприз23456789
11.02.2023 04:00 •
Информатика
Дано шестизначное число. найти сумму его цифр. величины для хранения всех шести цифр числа не использовать. сделать программу в паскале
Показать ответ
Ответ:
БраткаТвой
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 оценок)
Популярные вопросы: Информатика
СитниковаЛиза
10.06.2022 18:41
Составьте программу вычисления площади треугольника с основанием а и высотой h....
smesh33221
21.10.2021 06:16
Запишите наименьшее основание системы счисления, в которой могут быть записаны следующие числа: а) 9, 122, 1100, 14 б) 100, 112, 1004, 4444 в) 11, 7, 12, 222, 102...
БелаяЧёрнаяБелка
19.04.2022 22:21
Сколько секунд потребуется модему, придававшему сообщение со скоростью 14400 бит/сек чтобы передать растровое изображение размером 800×600 пикселей, при условие, что в палитре...
notmedont
10.02.2022 11:45
Расставьте профессии по мере убывания степени использования компьютеров: водитель,программист,актер,бухгалтер,журналист,писатель,повар,швея,учитель,директор,министр...
2006marusya
08.11.2020 20:23
Сообщение длинной 28672 символа, занимает в памяти 21 килобайт.найдите мощность алфавита ,который использовался при кодировании...
АленаКамарова
08.11.2020 20:23
Вычислить десятичные эквиваленты двоичных чисел? 111 ,1010 ,11011 , 101101...
GGG123366699
20.08.2022 09:00
Дано 3 массива a,b,c, состоящие из 10 элементов. присвоить массиву d среднее арифметическое каждого элемента этих 3 массивов. массивы a,b,c вводятся вручную. так же желательно...
Саша555111
22.06.2022 00:23
Excel, как ввести систему уравнений используя функцию если?...
Арина1666
22.11.2021 09:02
Реферат учащегося по имеет объем 110 кбайт.каждая его страница содержит 40 строк по 64 символа.при этом в кодировке 1 символ кодируется 16 битами.сколько страниц в реферате...
ВикаФан
27.08.2021 10:52
Сполный объяснением определить, кто из четырех подозреваемых участвовал в ограблении банка, если известно: 1) если а участвовал, то и в участвовал; 2) если в участвовал, то и...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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