Дано натуральное число. определить, есть ли в нем цифра равная а (а вводится с клавиатуры)

var

  a, c: integer;

begin

  write('введите число '); readln(c);

  write('a = '); readln(a);

  write('в числе ', c );

  while c < > 0 do

  begin

      if c mod 10 = a then

      begin

          writeln(' есть цифра ', a);

          exit;

      end;

      c : = c div 10;

  end;

  writeln(' нет цифры ', a);

end.

varz,a,i: integer; beginwriteln('vvedite chislo'); readln(z); writeln('vvedite zifru'); readln(a); for i: =1 to length(inttostr(z)) do beginif z mod 10 = a thenwriteln('est'); z: =z div 10; end; end.

б)имя существительное

21,24,27,30,33,36,39,42,45,48