Question

Дано натуральное число N. Выяснить, входит ли цифра 7 в запись числа N2.( решение в паскале) Помогите буду очень благодарна

Answer 1

var n:longint;
     f:boolean;
begin
  write ('N = ');
  readln (n);
  f:=false;
  while (n<>0) do
    begin
      if (n mod 10)=7 then 
       begin
         f:=true;
         break;
       end;
      n:=n div 10;
    end;
  if f then writeln ('YES') else writeln ('NO');
end.