циклические алгоритмы

[Mr.KOHCEPBATOP]

1) Найти трехзначное число, квадрат которого заканчивается тремя одинаковыми цифрами, отличный от нуля.
2) Выяснить, является ли заданное число палиндромом. (Например, число 232, 667766, 5697965 - палиндромы.)
3) Выяснить, имеет ли число N одинаковые цифры. Если имеет, то какие и сколько раз повторяется каждая цифра?

[JUDAS]

Раз все молчат, попробую ответить

var i,j,V,d : integer;
    S   : string;
    Poly: boolean;
begin
  // 1) Найти трехзначное число, квадрат которого
  // заканчивается тремя одинаковыми цифрами, отличный от нуля.
  for i:=101 to 999 do
  begin
   S := _str(i*i mod 1000);
   if (S[1]<>'0') and (S[1]=S[2]) and (S[2]=S[3]) then
  writeln(format('%d*%d = %d',[i,i,i*i]));
  end;
  write('Enter value '); readln(V);
  // 2) Выяснить, является ли заданное число палиндромом.
  // (Например, число 232, 667766, 5697965 - палиндромы.)
  S := _str(V);
  Poly := true;
  v:= LenGth(S);
  for i:=0 to (v div 2) do
  if S[i+1]<> S[v-i] then
  begin
   Poly := false;
   Break;
  end;
  if Poly then
   writeln(S+' polydrom ') else
   writeln(S+' not polydrom');

 // Выяснить, имеет ли число N одинаковые цифры.
 // Если имеет, то какие и сколько раз повторяется каждая цифра?
  write('Enter value '); readln(V);
  S := _str(V); v:= LenGth(S);
  for i:=1 to v do
  if S[i]<>#0 then
  begin
    d:=1;
    for j:=i+1 to v do
    if S[i]=S[j] then
    begin
     S[j] := #0;
     Inc(d);
    end;
    if d>1 then
    writeln(S[i]+' - count ='+_str(d));
  end;

[Mr.KOHCEPBATOP]

офигеть О_О
большое пребольшое спасибо!
ты спас мне жизнь!
вот бы и мне так научиться ......
еще раз большое спасибо!