Question

Дано натуральное число N. Удалить из записи все четные цифры.Паскаль​

Answer 1

Ответ:

var

a,b,i,t,err:integer;

s,s1:string;

begin

 t:=0; err:=0; s1:='';

 readln(a);

 str(a,s);

 for i:=1 to length(s) do

 begin

   val(s[i],t,err);

   if t mod 2 <>0 then s1:=s1+s[i];

 end;

 val(s1,b,err);

 writeln(b);

end.

Answer 2

Для удаления всех четных цифр из записи натурального числа N на языке Pascal, вы можете использовать следующий код:

pascalCopy code
program RemoveEvenDigits;

var
  N, NewNumber, Digit: Integer;

begin
  Write('Введите натуральное число N: ');
  Readln(N);

  NewNumber := 0;

  while N > 0 do
  begin
    Digit := N mod 10; // Получаем последнюю цифру числа
    if Digit mod 2 <> 0 then
      NewNumber := NewNumber * 10 + Digit; // Добавляем нечетную цифру к новому числу
    N := N div 10; // Убираем последнюю цифру из числа
  end;

  // Переворачиваем новое число
  N := 0;
  while NewNumber > 0 do
  begin
    Digit := NewNumber mod 10;
    N := N * 10 + Digit;
    NewNumber := NewNumber div 10;
  end;

  Writeln('Число после удаления четных цифр: ', N);
end.

Этот код считывает натуральное число N, затем проходит через его цифры, удаляя четные цифры, и формирует новое число без четных цифр. Наконец, оно переворачивает новое число и выводит результат.