Question

Как в паскале удалить цифру из числа? Какая для этого команда? :)

Answer 1

Var a,b:integer;
c:string;
begin
read(a,b);
while (a<>0) do begin
if a mod 10 <> b then c+=inttostr(a mod 10);
a:=a div 10;
end;
for a:=length(c) downto 1 do
write(c[a]);
end.

Answer 2

В Pascal можно удалить цифру из числа, преобразовав его в строку и затем удалив нужную цифру из строки. Для этого можно воспользоваться функциями преобразования типов и работы со строками, такими как `IntToStr`, `StrToInt`, `Copy`, `Delete` и `Pos`.

Вот пример кода, который демонстрирует удаление цифры из числа в Pascal:

program RemoveDigitFromNumber;

uses
  SysUtils;

function RemoveDigit(number: Integer; digit: Integer): Integer;
var
  numberStr: string;
  digitPos: Integer;
begin
  // Преобразуем число в строку
  numberStr := IntToStr(number);

// Находим позицию цифры в строке
  digitPos := Pos(IntToStr(digit), numberStr);

// Если цифра найдена, удаляем ее из строки
  if digitPos > 0 then
    Delete(numberStr, digitPos, 1);

// Преобразуем строку обратно в число и возвращаем результат
  Result := StrToInt(numberStr);
end;

var
  number: Integer;
  digit: Integer;
  result: Integer;
begin
  // Вводим число и цифру для удаления
  Write('Введите число: ');
  ReadLn(number);
  Write('Введите цифру для удаления: ');
  ReadLn(digit);

// Удаляем цифру из числа
  result := RemoveDigit(number, digit);

// Выводим результат
  WriteLn('Результат: ', result);

// Ждем нажатия клавиши перед завершением программы
  ReadLn;
end.

В этом примере программа сначала преобразует число в строку с помощью функции `IntToStr`. Затем она находит позицию цифры в строке с помощью функции `Pos`. Если цифра найдена, она удаляется из строки с помощью функции `Delete`. Затем строка преобразуется обратно в число с помощью функции `StrToInt`, и результат выводится на экран.

Примечание: Убедитесь, что вы используете совместимую с Pascal среду разработки или компилятор, чтобы запустить этот код.