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

Question

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

Comments

в запись числа N2?? Это все условие или еще что есть?

---

n в квадрате, больше нету условия

---

Так напиши в программе,что снизу, после строчки readln(n) строку n:=sqr(n).Только при вводе больших чисел может произойти переполнение, и результат будет неверным. Так как, диапозон чисел типа longint составляет [-2147483648..2147483647]

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.