Ответы
Ответ дал:
0
var a: string;
i, j: integer;
c: char;
begin
readln(i);
a := inttostr(i);
for i := 1 to length(a) do
begin
c := a[i];
for j := 1 to length(a) do
begin
if a[i+j] = c then writeln(a[j+i]);
end;
end;
end.
Вот такие пироги х)
i, j: integer;
c: char;
begin
readln(i);
a := inttostr(i);
for i := 1 to length(a) do
begin
c := a[i];
for j := 1 to length(a) do
begin
if a[i+j] = c then writeln(a[j+i]);
end;
end;
end.
Вот такие пироги х)
Ответ дал:
0
Не знааю ._.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад
9 лет назад