Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Щощо
12.09.2021 06:58 •
Информатика
А. составьте подпрограмму-функцию, которая по заданному натуральному числу n вычислит сумму его цифр. б. составьте алгоритм, подсчитывающий количество n-значных натуральных чисел, у каждого из которых сумма цифр равна заданному натуральному числу k.
Ответ:
YanaKotsyuk
12.07.2020 18:54
A.
Program enot;
Var a,c,sum: integer;
begin
read(a);
while a>0 do
begin
c:= a mod 10;
sum:=sum+c;
a:=a div 10;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ернай
11.02.2023 21:35
Найдите сумму чисел от 1 до 5 в паскале...
90125
18.06.2021 02:10
Составьте программу, определяющую,относится ли введённых с клавиатуры год к первому веку первый век начинается 2001 г. и заканчивается в 2100...
ritteru
10.12.2021 10:38
Чем список отличается от массива? от хеш-таблицы?...
pozhidaevad
29.04.2020 20:54
Написать программу в паскале. даны два числа.меньшее из них замените полусуммой этих чисел, а большее - их произведением. составить блок-схему....
pomidorka0078
14.12.2022 01:59
На языке pascal: дано число - 2852 вытащить из середины число 85 и 58 число 2852 дано целиком то есть, const a = 2852;...
cuper200017
27.05.2021 18:50
Составь 5 слов с прелогательными и существительными...
аоаооо
27.05.2021 18:50
Книже именам прилагательным подобрать и написать антонимы....
kornilovstas200
27.05.2021 18:50
Tony at the moment. he s on holida...
Манипуляция
27.05.2021 18:50
Авы друзья как ни садитесь как кто написал эту сказку...
GOLUBOVICH0400
27.05.2021 18:50
Половина числа 8,четверть числа 8,восьмая часть 8.половина 16, четверть числа 16, восьмая часть числа 16...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Program enot;
Var a,c,sum: integer;
begin
read(a);
while a>0 do
begin
c:= a mod 10;
sum:=sum+c;
a:=a div 10;
end;
writeln(sum);
end.