Question

Даны два числа. Определить цифры, входящие в запись как первого так и второго числа. Написать на паскале.

Answer 1

var

a, b, c: longint;

d: byte;

begin

readln(a,b);

while a > 0 do begin

d := a mod 10;

a := a div 10;

c := b;

while c > 0 do begin

if c mod 10 = d then begin

write(d,' ');

break;

end;

c := c div 10;

end;

end;

writeln;

end.

Answer 2

Ответ:

/0

1/3*6?wwwhdjdjdkn-===

Answer 3

Конечно, вот пример программы на Pascal, которая находит цифры, входящие в запись как первого, так и второго числа:

pascalCopy code
program CommonDigits;
var
  num1, num2, tempNum1, tempNum2, digit: Integer;
  commonDigits: array[0..9] of Boolean;

begin
  // Инициализируем массив commonDigits значением False
  for digit := 0 to 9 do
    commonDigits[digit] := False;

  // Вводим два числа
  Write('Введите первое число: ');
  Readln(num1);
  Write('Введите второе число: ');
  Readln(num2);

  tempNum1 := num1;
  tempNum2 := num2;

  // Ищем общие цифры
  while tempNum1 > 0 do
  begin
    digit := tempNum1 mod 10;
    tempNum1 := tempNum1 div 10;
    while tempNum2 > 0 do
    begin
      if digit = tempNum2 mod 10 then
        commonDigits[digit] := True;
      tempNum2 := tempNum2 div 10;
    end;
    tempNum2 := num2; // Возвращаем tempNum2 в исходное значение
  end;

  // Выводим общие цифры
  Writeln('Общие цифры в числах ', num1, ' и ', num2, ':');
  for digit := 0 to 9 do
  begin
    if commonDigits[digit] then
      Write(digit, ' ');
  end;
end.

Эта программа запрашивает у пользователя два числа и затем находит общие цифры в их записях. Результат будет выведен на экран.