Question

ПОЖАЛУЙСТА Нужна программа на языке Паскаль Дано число,удалить из него все нечетные числа(желательно с обьяснием)

Answer 1

Uses crt;
const n=15;
var a : array [1..99] of integer;
i:integer;
begin writeln('исходный массив:');
for i:=1 to n do //заполнение массива случайными числами 
begin a[i]:=random(71)-15;
write(a[i],' ');
end;
writeln;
writeln('отсортированный массив:');
for i:=1 to n do begin // Проверка на чётность 
if a[i] mod 2=0 then
write(a[i],' ');
end;
end.

Answer 2

Хорошо, давайте напишем программу на языке Паскаль, которая удаляет все нечетные числа из данного числа. Но перед тем, как продолжить, стоит уточнить, что удаление чисел из числа само по себе не имеет смысла, поскольку числа являются абстрактными математическими понятиями. Число, как таковое, не может содержать других чисел внутри себя.

Я предполагаю, что вы хотите удалить нечетные цифры из числа, а не числа из числа. Например, если у нас есть число 13579, то после удаления нечетных цифр получим число 0. Для этого мы будем работать со строкой, представляющей число, и удалим из нее все нечетные цифры.

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

pascalCopy code
program RemoveOddDigits;

procedure RemoveOdd(var numStr: string);
var
  i: integer;
begin
  i := 1;
  while i <= Length(numStr) do
  begin
    if Ord(numStr[i]) mod 2 <> 0 then
      Delete(numStr, i, 1)
    else
      Inc(i);
  end;
end;

var
  number: integer;
  numberStr: string;
begin
  Write('Введите число: ');
  ReadLn(number);
  
  Str(number, numberStr);
  RemoveOdd(numberStr);

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

Объяснение программы:

1. Программа сначала объявляет процедуру RemoveOdd, которая принимает на вход переменную numStr типа string.
2. Внутри процедуры RemoveOdd, мы используем цикл while, чтобы пройти по всем символам строки numStr.
3. Внутри цикла, мы проверяем, является ли текущий символ нечетной цифрой. Мы делаем это, преобразовав символ в его числовое значение с помощью функции Ord и проверив, что остаток от деления на 2 не равен нулю.
4. Если текущий символ является нечетной цифрой, мы используем процедуру Delete, чтобы удалить его из строки numStr.
5. Если текущий символ является четной цифрой, мы увеличиваем значение i, чтобы перейти к следующему символу.
6. В главной части программы мы считываем число с помощью ReadLn и преобразуем его в строку numberStr с помощью функции Str.
7. Затем мы вызываем процедуру RemoveOdd, передавая ей строку numberStr.
8. Наконец, выводим результат - число после удаления нечетных цифр.

Например, если вы введете число 13579, программа выдаст результат: "Число после удаления нечетных цифр: 0".

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