Написать программу, подобную данной

[russian-stalker]

Ещё года 3 назад находил, смысл работы прост как мир

[russian-stalker]

Ну алгоритм примерно такой(Чуток доработать и придумать куда выводить числа):

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
s,m:string;
begin
memo1.Lines.Clear;
randomize;
m:=chr(random(125));
for I := 99 downto 0 do
begin
if i mod 9=0 then
s:=m else
s:=chr(random(125));
if length(inttostr(i))>1 then
memo1.Text:=memo1.Text+'               '+inttostr(i)+' '+s else
memo1.Text:=memo1.Text+'               0'+inttostr(i)+' '+s;
if i mod 10=0 then
memo1.Lines.Add('');
end;
end;

[m0nax]

интересный прикол, надо будет сейчас написать прогу и послать знакомым, мол, зацените - изобрел искусственный интеллект и комп теперь читает ваши мысли

[DeKot]

Уже было на форуме - "Чтение мыслей ...", "Магический квадрат"