Question

Дано трехзначное число, определите, входят ли в него числа 3,8,5 Программа Паскаль

Answer 1

Var
x:integer;
begin
writeln('Введите числo:');
readln(x);
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if (x=3)or(x=5)or(x=8) then
writeln('В чсило входит цифра: ',x mod 10);
end.