Question

Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры. паскаль 50 баллов

Answer 1

var

 ch:string;

 c:char;

  position:integer;

begin

 Writeln('Введите трехзначное число: ');

  readln(ch);

 Writeln('Введите цифру: ');

 readln(c);

 if pos(c,ch) >0 then

  position:=pos(c,ch);

 delete(ch,position,1);

 writeln(ch);

end.

Answer 2

Конечно, я могу помочь вам написать программу на Паскале для удаления заданной цифры из трехзначного числа. Вот пример решения:

pascalCopy code
program RemoveDigit;

var
  number, digit, result: integer;

begin
  writeln('Введите трехзначное число: ');
  readln(number);

  writeln('Введите цифру, которую нужно удалить: ');
  readln(digit);

  if (number < 100) or (number > 999) then
  begin
    writeln('Введено некорректное число. Пожалуйста, введите трехзначное число.');
    readln;
    exit;
  end;

  result := 0;
  while number > 0 do
  begin
    if (number mod 10) <> digit then
      result := result * 10 + (number mod 10);
    number := number div 10;
  end;

  writeln('Число после удаления цифры ', digit, ': ', result);
  readln;
end.

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

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