Question

НАПИШИТЕ ПРОГРАММУ ПАСКАЛЬ!!! Дано двузначное число N и однозначное M. Проверить,если ли среди цифр числа N число M.!!!!!

Answer 1

Var
   N:integer;
   M:byte;
Begin
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
if (N div 10 = M)or(N mod 10 = M) then WriteLn('Цифра ',M,' есть в числе ',N)
else WriteLn('В числе ',N,' нет цифры ',M)
End.

Answer 2

Конечно, вот пример программы на языке Паскаль, который выполняет указанную задачу:

pascalCopy code
program CheckDigit;

var
  N, M, digit: Integer;
  found: Boolean;

begin
  write('Введите двузначное число N: ');
  readln(N);

  write('Введите однозначное число M: ');
  readln(M);

  found := False;

  // Перебираем цифры числа N
  while N > 0 do begin
    digit := N mod 10;
    if digit = M then begin
      found := True;
      break;
    end;
    N := N div 10;
  end;

  if found then
    writeln('Цифра ', M, ' найдена в числе ', N)
  else
    writeln('Цифра ', M, ' не найдена в числе ', N);

  readln;
end.

Программа запрашивает двузначное число N и однозначное число M у пользователя. Затем она перебирает цифры числа N, сравнивая их с числом M. Если цифра M найдена, программа устанавливает переменную found в значение True и прерывает цикл. В конце программы она выводит сообщение, указывающее, была ли найдена цифра M в числе N.