Question

Дано натуральное число N и цифра К. Составьте на Паскале программу, которая определяет. Есть ли в записи числа N цифра К.

Answer 1

program NK;

var

K, N: integer;

begin

write('Число N: ');

readln(N);

write('Цифра К: ');

readln(K);

while (N <> 0) do

begin

if ((N mod 10) = K) then

begin

writeln('Есть');

halt;

end;

N := N div 10;

end;

writeln('Нет');

readln;

end.

Answer 2

Для определения наличия цифры K в числе N, можно воспользоваться следующим алгоритмом:

1. Преобразовать число N в строку, чтобы можно было обращаться к его цифрам по индексу.
2. Перебрать все символы строки (цифры числа) и проверить, есть ли среди них цифра K.

Давайте составим программу на языке Паскаль для выполнения этого алгоритма:

pascalCopy code
program CheckDigitInNumber;

var
  N: Integer;
  K: Char;
  NumberStr: String;
  i: Integer;
  DigitFound: Boolean;

begin
  // Вводим число N и цифру K
  Write('Введите натуральное число N: ');
  Readln(N);
  Write('Введите цифру K: ');
  Readln(K);

  // Преобразуем число N в строку
  NumberStr := IntToStr(N);

  // Инициализируем флаг, указывающий, найдена ли цифра K
  DigitFound := False;

  // Перебираем все символы строки и ищем цифру K
  for i := 1 to Length(NumberStr) do
  begin
    if NumberStr[i] = K then
    begin
      DigitFound := True;
      Break; // Если цифра K найдена, выходим из цикла
    end;
  end;

  // Выводим результат
  if DigitFound then
    Writeln('Цифра ', K, ' найдена в числе N.')
  else
    Writeln('Цифра ', K, ' отсутствует в числе N.');
end.

Программа позволяет ввести натуральное число N и цифру K, после чего она проверит, есть ли цифра K в числе N и выведет соответствующий результат. Если цифра K найдена, будет выведено "Цифра K найдена в числе N." иначе "Цифра K отсутствует в числе N."