Pascal. Решите пожалуйста задачу!. Даны натуральные числа n и k. Проверить, есть ли в записи числа n*k цифра m.

Для решения этой задачи можно преобразовать число n*k в строку и проверить, содержит ли эта строка символ m.

Вот пример решения на языке Pascal:

program CheckDigit;
var
  n, k, m: Integer;
  number: String;
  i: Integer;
  digitFound: Boolean;
begin
  // Вводим значения n, k и m
  Write('Введите число n: ');
  ReadLn(n);
  Write('Введите число k: ');
  ReadLn(k);
  Write('Введите цифру m: ');
  ReadLn(m);

  // Вычисляем произведение n и k
  number := IntToStr(n * k);

  // Проверяем, содержит ли строка number символ m
  digitFound := False;
  for i := 1 to Length(number) do
  begin
    if StrToInt(number[i]) = m then
    begin
      digitFound := True;
      Break;
    end;
  end;

  // Выводим результат
  if digitFound then
    WriteLn('Цифра ', m, ' найдена в числе ', n * k)
  else
    WriteLn('Цифра ', m, ' не найдена в числе ', n * k);
end.

Программа сначала запрашивает у пользователя значения n, k и m. Затем она вычисляет произведение n и k и преобразует его в строку. Далее она проверяет каждый символ строки на равенство с m. Если символ m найден, программа выводит сообщение о том, что цифра m найдена в числе nk. В противном случае программа выводит сообщение о том, что цифра m не найдена в числе nk.