Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Princessa607
13.09.2022 21:20 •
Информатика
Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n
Показать ответ
Ответ:
ArtemRussia
03.07.2020 06:08
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Снежка555
26.01.2023 09:26
1) Определите длину кратчайшего пути между пунктами A и E 2) Сколько существует различных путей из города А в город И, проходящих через город Ж?...
caros14
05.11.2021 12:30
Выполняемая по информацике ...
sofiyakasheeva
12.03.2020 02:50
Синониму к словам жара,беда,пурга,грусть,прочный,смеяться,небольшой,,додуматься....
Йорик336
25.08.2021 01:45
:в класі 25 учнів із них 4 не вміють грати ні в шашка ні в шахмати, 18 учнів вміють грати в шашки,20- в шахмати. скільки учнів грають і в шашки і в шахмати...
artik5990765
25.08.2021 01:45
Информационный объем статьи , набранной на компьютере , составляет 30 кбайт . определите сколько страниц содежит статья , если известно , что на каждой странице 32 строки...
marinovamari1
24.07.2021 15:28
Очём можно сделать презентацию для конфиренции? надо, любые темы, главное что бы что-то интересное)...
Limda777
24.07.2021 15:28
Какие функции выполняет сервер локальной сети?...
427v2
24.07.2021 15:28
Решить )в классе 36q учеников, из них 21q девочек и 15q мальчиков. в какой системе счисления велся счет учеников? 2)в саду 100qфруктовых деревьев, из них 33qяблони, 22qгруши,...
1234567812445672676
15.04.2023 04:28
Найдите в интернете законы, указы, решения, касающиеся правил компьютерной этики...
Klimg
04.01.2020 23:20
Сколько периодов в истории развития вычислительной техники?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.