Информатика, опубликовано 2018-08-22 19:17:26 by Гость
Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
Ответ оставил Гость
Var N,i,k,L:integer;
begin
read (N);
L:=0;
for i:=100 to 999 do
begin
k:=((i mod 100) mod 10) + ((i mod 100) div 10) + (i div 100);
if (k=N) then
begin
L:=L+1;
end;
end;
writeln (L);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на