Задание:
Дано натуральное число N. Выяснить, входит ли цифра 7 в запись числа N2. (решение в паскале) Помогите буду оченьблагодарна
Решение:
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.
Знаете другой ответ?