Question

Решите задачу номер 4 в Паскале. Для ввода использовать for k to do

Answer 1

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