Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N
Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу 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.
Не нашли ответ?
Похожие вопросы