Паскаль

[Ivka]

Прошу, помогите с заданием!!!
Надо ввести число Х (integer), извлечь из него корень, проверить-(если результат целое число и содержит минимум 2 одинаковых числа, то написать - годиться, если нет ( то не годиться)...

[Serge_Bliznykov]

целое число и содержит минимум 2 одинаковых числа

мне кажется, что вы путаете понятия число и цифра. Если речь идёт о том, что число содержит две одинаковые цифры, то решение может выглядеть так:

var x    : longint;
  xSQRT, Num  : longint;
  i, OneDigit : integer;
  CountX : array[0..9] of integer;
  isAvailable : boolean;
begin
  WriteLn('Введите X: ');  
  Readln(X);
  xSQRT  := trunc(round(SQRT(X))); 
  {если корень - целое число}
  if sqr(xSQRT)=X then
    {проверим, есть ли одинаковые числа в записи }
  begin
    {обнулим счётчик цифр}  
    for i:=0 to 9 do CountX[i] := 0;

    Num := xSQRT;
    isAvailable := false;
    while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      CountX[OneDigit] := CountX[OneDigit] + 1;
      if  CountX[OneDigit] >= 2 then begin
           isAvailable := true; 
           {прерываем цикл перебора,
            т.к. можно дальше не проверять - 
                 уже есть две одинаковых цифры}
           break; 
      end;
    end;

    WriteLn;
    Write('Число (корень = ',xSQRT:1,') ');
    if isAvailable then WriteLn('подходит.')
    else WriteLn('не подходит.')


  end
  else
    WriteLn('Корень - не целое число!');

  readln;
end.

[Ivka]

благодарю...