tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить количество трехзначных
Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n
litvinsofia245
1 02.06.2019 07:10
2
Ответы
dmitriidimaro
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
stilist2011
15.07.2019 21:50
Вводится ребро куба, найти его площадь...
bahahas
15.07.2019 21:50
Какие данные несут больше информации тесктовые или графические.почему?...
юлд1
11.04.2020 18:27
Чем различаются средства школьного алгоритмического языка и Паскаля для работы со строками? Как преобразовать число из символьного вида в числовой и обратно?...
SadDorry
11.04.2020 18:28
Хотим сыграть с другом в майнкрафт или LOTR.Battle for ME II через hamachi, но не получается...
Tania22012003
11.04.2020 18:29
хелп Определи значение переменной а после выполнения фрагмента алгоритма при а=5 и а=15. Ввод а если а 5 то а:=а+20 иначе а:=а*10 всё ответ: при =5 значение переменной...
dilyakon
11.04.2020 18:45
Const N=10; Var a:array [1...N] of integer; i:integer; num:integer; j:integer; buf:integer; k:integer; begin for k:=1 to N do begin write ( a[ ,k, ]= );readln(a[k]);...
iulia085
11.04.2020 18:46
Заполнить массив из 10 элементов случайными целыми числами из интервала [-10, 10], вывести на экран. Подсчитать количество положительных элементов, отрицательных и нулей...
Mia112
11.04.2020 18:46
Как заархивировать видео на компютере чтобы уменьшить его в размере...
КатаринаВаулина
11.04.2020 18:46
Напишите программу формирующую одномерный массив из 9-ти элеметов, путем ввода их с клавиатуры, полученный массив программа должна вывести в столбик...
академег228
11.04.2020 18:46
Оператор вывода write (9,19,26,100); Результат...
Популярные вопросы
Каковы жизненные формы растений семейства крестоцветных?...
2
Прочитайте предложения. докажите, что это текст. летом лес был зеленый.осенью...
3
2•c-7 5 найди два решения неравенства...
3
Что потерял иван в реке смородине, когда сражался с чудом-юдом? 1...
3
6придложений на белоруском языке в навуковвм стиле...
2
Составить из слов предложение: случайно, произошол,дорожке,лесной,вырупке,верхушка,ружье...
1
Привидите примеры открытой и закрытой информации...
3
Прочитайте. какие птицы улетают на юг осенью? какие части есть у...
2
Брошен! сказал цезарь и перешел с войском эту реку. по,рубикон,сена,днепр...
2
Сообщения об открытии в области исследования космоса...
1
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.