Létezik olyan program amivel ilyen számokat generálhatok? Többi lent.

0 1 2 3 4 5 6 7 8 9

Nem kell ehhez program! Amúgy nem látok túl sok hasznát, nem vennék rá mérget, hogy találsz, de pár sorból megvan az egész, egy programozó palánta biztos megcsinálja neked.

Négy számra tessék, ha erre gondolsz:

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

const szamok : array [0..3] of Char = ('0', '1', '2', '3');

var egy, ketto, harom, negy : byte;

begin

for egy := 0 to Length(szamok)-1 do

for ketto := 0 to Length(szamok)-1 do

for harom := 0 to Length(szamok)-1 do

for negy := 0 to Length(szamok)-1 do

begin

Write(szamok[egy]+szamok[ketto]+szamok[harom]+szamok[negy]);

WriteLn;

end;

Readln;

end.

Delphi consol, de ha ezt

{$APPTYPE CONSOLE}

uses SysUtils;

törlöd Turbo Pascalon is lefordul, elfut.