Предмет: Информатика, автор: instailler

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

Ответы

Автор ответа: Tlalok
0

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.

Похожие вопросы
Предмет: Русский язык, автор: bella200843
Предмет: Алгебра, автор: JNastya