Matematické Fórum

Skrytý text:
procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k,c:integer;
begin
n:=strtoint(edit1.Text);
   for i:= 1 to 9
     do for j:=0 to 9
        do for k:=0 to 9
      do if i+j+k=n
        then
          begin
           c:=i*100+j*10+k;
          memo1.Lines.Add(IntToStr(c));
          end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key  in ['0'..'9',#8]) then key:=#0;
end;

end.