Question

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

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.

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger).ToString.Where(x->x='7').Count<>0);
end.