Question

Напишите программу, позволяющую определить, входит ли заданная цифра в некоторое целое неотрицательное число.

Answer 1

program CheckDigit;
var   number, digitToCheck: integer;   found: boolean;
begin   write('Введите целое неотрицательное число: ');   readln(number);
  write('Введите цифру для проверки: ');   readln(digitToCheck);
  found := false;
  while number > 0 do   begin     if number mod 10 = digitToCheck then     begin       found := true;       break;     end;     number := number div 10;   end;
  if found then     writeln('Цифра ', digitToCheck, ' найдена в числе.')   else     writeln('Цифра ', digitToCheck, ' не найдена в числе.'); end.