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

Question

Информатика

Сидор

11 июля, 12:43

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

+2

Ответы (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.