квадрат цифры

[Акоб]

if ( (sqrt( y) div 1 ) * (sqrt(y) div 1) ) = y
не работает такое условие
я хочу узнать есть ли какая-то цифра квадрат которой равен y.

[veniside]

> есть ли какая-то цифра квадрат которой равен y

case (y) of

  0, 1, 4, 9, 16, 25, 36, 49, 64, 81: ; // есть такая цифра, квадрат которой равен y
  else 
     ; // нет такой цифры

end;

[Mad_Cat]

for i:=0 to 9 do if sqr(i)=y then {есть}

[Акоб]

а если это очень большая цифра?
как можно округлить цифру?

[Shift_sk]

округлить до чего?

[Arkuz]

а если это очень большая цифра?

for i:=0 to {укажите здесь например 1 000 000} do if sqr(i)=y then {есть}

[Акоб]

Сообщение от Shift_sk

округлить до чего?

неважно, если нету цифры квадрат которож равен y то корень y не натуральное число, следовательно если округлить эту цифру и посчитать ее квадрат то он не будет равн y.

вот нашел функцию round(x);
round(sqrt(y)) * round(sqrt(y)) = y

[veniside]

> а если это очень большая цифра?

в десятичной системе счисления всего 10 цифр.

[Акоб]

а кто сказал, что y <= 81?

[Д_М]

Сообщение от Акоб

if ( (sqrt( y) div 1 ) * (sqrt(y) div 1) ) = y
не работает такое условие
я хочу узнать есть ли какая-то цифра квадрат которой равен y.

Дано целое число y. Определить, является ли y точным квадратом наиболее эффективным способом.

Я правильно понял задачу?