Question

2. Определить количество трёхзначных цифр, сумма цифр которого равна заданному числу N (в паскале, Цикл со счётчиком)

Answer 1

program asd;
var x,k,n:integer;
begin
readln (n);
for x:=100 to 999 do begin
if (x div 100 + x div 10 mod 10 + x mod 10 = n) then
k:=k+1;
end;
writeln (k);
readln;
end.