Вопрос по информатике:
Определить количество трёхзначных цыфр , сумма цыфр которого равна заданному числу N.
- 17.05.2016 23:01
- Информатика
- remove_red_eye 13331
- thumb_up 20
Ответы и объяснения 1
const
m = 999;
var
i, N, count:integer;
begin
write('N = '); readln(N);
count := 0;
for i := 100 to m do
begin
if (i mod 10) + (i div 10) mod 10 + (i div 100) mod 10 = N then
inc(count);
end;
writeln('Count = ', count);
readln;
end.
- 19.05.2016 16:52
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.