Дано трехзначное число. Верно ли, что среди его цифр есть равные 7?

Question

Информатика

Таиска

27 марта, 06:48

Дано трехзначное число. Верно ли, что среди его цифр есть равные 7?

+3

Ответы (1)

Знаете ответ на вопрос?

Федюша · Answer 1

var i, n:integer;

seven:boolean;

begin

readln (n) ;

for i : = 1 to 3 do begin

if n mod 10 = 7 then begin

seven:=true;

break;

end;

n: = n div 10;

end;

if seven then writeln ('есть равные 7 ')

else writeln ('кратных 7 нет') ;

end.