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

Raptords Raptords    1   19.05.2019 07:00    3

Ответы
mykolivannp085fw mykolivannp085fw  12.06.2020 11:29

var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.

ПОКАЗАТЬ ОТВЕТЫ
drsamsoff drsamsoff  12.06.2020 11:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика