snomer:=IntToStr(nome);
RichEdit1.Lines.Strings[stroka]:=snomer+snomer+snomer;
nome:=nome+1;
Нахождение чисел вида XY XY XY
Найти все числа, не большие по длине заданного n и которые можно записать в виде трехкратного повторения одного и того же числа. Операцией деления не пользоваться. (Например, число 242424 является трехкратным повтором числа 24).
Задачу нужно решть в Дельфи, но мне нужен хотя бы алгоритм.
Она была уже решена, используя строки, т.е. там было так
Было сказано, что числа так не формируются и ищите другое решение.
Задачу нужно решть в Дельфи, но мне нужен хотя бы алгоритм.
Она была уже решена, используя строки, т.е. там было так
Код:
Было сказано, что числа так не формируются и ищите другое решение.
Программа записывает числа в TListBox lb;
Код:
const N = 9; // Макс. длина числа
procedure TForm1.Button7Click(Sender: TObject);
var
i, j, times, pow, delta, num: Integer;
begin
times := N div 3;
pow := 1;
for i := 1 to times do begin
j := pow;
pow := pow * 10;
delta := pow*pow + pow + 1;
num := (j-1)*delta;
for j := j to pow-1 do begin
num := num + delta;
lb.Items.Add(IntToStr(num));
end;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
i, j, times, pow, delta, num: Integer;
begin
times := N div 3;
pow := 1;
for i := 1 to times do begin
j := pow;
pow := pow * 10;
delta := pow*pow + pow + 1;
num := (j-1)*delta;
for j := j to pow-1 do begin
num := num + delta;
lb.Items.Add(IntToStr(num));
end;
end;
end;