Задача по целочисленной арифметике

[Gamst]

Здравствуйте) Помогите пожалуйста) Плохо разбираюсь в Pascal'е
Дано натуральное число n. Встречаются ли в записи числа sqr(n) цифры 3 и 5?

[Npwas]

Sqr(n) - функция возведения числа n в квадрат, логически подумав возводя числа в квадрат возможно могут встретится те числа, которые будут в себе содержать цифры 3 и 5.

[Gamst]

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

Sqr(n) - функция возведения числа n в квадрат, логически подумав возводя числа в квадрат возможно могут встретится те числа, которые будут в себе содержать цифры 3 и 5.

ну да, это то понятно.
но как реализовать?

[veniside]

http://ideone.com/671um

[VIK_aka_TOR]

можно так ещё... )

var
flag3, flag5 :boolean;
n : integer;
begin
flag3 := false;
flag5 := false;
readln(n);
n := sqr(n);
while n > 0 do
  begin
    if n mod 10 = 3 then
      flag3 := true;
    if n mod 10 = 5 then
      flag5 := true;
    
    n := n div 10;    
  end;
  
  if flag3 then
    writeln('цифра 3 встречается в числе')
  else 
    writeln('цифра 3 не встречается в числе');
  if flag5 then
    writeln('цифра 5 встречается в числе')
  else 
    writeln('цифра 5 не встречается в числе');
end.

[Gamst]

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

http://ideone.com/671um

тут чуть-чуть неправильно, надо искать в sqr(n) цифры 3 и 5.
все равно спасибо

[veniside]

тут чуть-чуть неправильно

что именно неправильно? не ищет 3? не ищет 5? ищет не в квадрате n?

[Gamst]

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

что именно неправильно? не ищет 3? не ищет 5? ищет не в квадрате n?

ищет в заданном числе, а не в n^2

[veniside]

посмотрите на код более внимательным образом