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

Question

Информатика

Инуся

6 февраля, 00:32

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

+1

Ответы (1)

Знаете ответ?

Эдя · Answer 1

var n:longint;

f:boolean;

begin

write ('N = ') ;

readln (n) ;

f:=false;

while (n0) 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.