Var a, n: longint; v1, v2, v3: byte; s: byte; begin readln(a); n := a; v1 := 0; v2 := 0; v3 := 0; while (n <> 0) do begin s := n mod 10; n := n div 10; if (s = 3) then v1 := 1; if (s = 2) then v2 := 1; if (s = 5) then v3 := 1; end; if (v1 = 1) then writeln('В этом числе есть цифра 3') else writeln('В этом числе нет цифры 3'); if (v2 = 1) and (v3 = 1) then writeln('В этом числе есть цифры 2 и 5') else writeln('В этом числе нет одновременно цифр 2 и 5'); end.