Question

дано натуральное число определить А) есть ли в нем цифра 3 Б)есть ли в нем цифры 2 и 5

Answer 1

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.

Answer 2

var
  n:longint;
  d,k2,k3,k5:byte;
 
begin
  Read(n);
  k2:=0; k3:=0; k5:=0;
  while n>0 do begin
    d:=n mod 10;
    case d of
      2:k2:=k2+1;
      3:k3:=k3+1;
      5:k5:=k5+1;
      end;
    n:=n div 10
    end;
  if k3>0 then Writeln('В числе есть цифра 3');
  if (k2>0) and (k5>0) then Writeln('В числе есть цифры 2 и 5');
  Writeln('работа завершена')
end.