Question

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

Answer 1

Ответ:

Если так как я уточнял, то вот код

Объяснение:

Program zzz;

Var a,b,a1,a2,a3,otv:integer;

begin

write ('введите трёхзначное число ');

read(a);

a1:=a div 100; //1 число

a2:=(a mod 100) div 10; //2 число

a3:=a mod 10;//3 число

write ('введите цифру, которую нужно убрать: ');

read(b);

if b=1 then  

        begin

         otv:=a2*10+a3;

         write ('полученное число ',otv);

        end;

if b=2 then  

        begin

         otv:=a1*10+a3;

         write ('полученное число ',otv);

        end;

if b=3 then  

        begin

         otv:=a1*10+a2;

         write ('полученное число ',otv);

        end;

End.

Answer 2

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

pascalCopy code
program RemoveDigitFromNumber;

var
  number, digit, result: integer;

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

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

  if (number < 100) or (number > 999) then
  begin
    writeln('Ошибка: Введите трехзначное число.');
    exit;
  end;

  if (digit < 0) or (digit > 9) then
  begin
    writeln('Ошибка: Введите корректную цифру (от 0 до 9).');
    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;

  // Переворачиваем число обратно
  number := 0;
  while result > 0 do
  begin
    number := number * 10 + (result mod 10);
    result := result div 10;
  end;

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

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