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

А вот потом удалить (обнулить) тут допытать надо. А затем снова сформировать число. Как вам такой порядок?

Answer 3

А так, я бы это не принял. К тому же стиль текста программы ещё хуже чем у меня :()

Answer 4

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

Answer 5

Я об этом же. Добавьте анализ. а ЗАТЕМ СБОРКУ ЧИСЛА.

Answer 6

А так. Пусть вопрошающий пошарит хотя бы в здешнем архиве. Задачи на разложение числа на цифры тут встречались неоднократно. Организует запись чисел в массив, затем его обработку. Ну и соберёт потом складывая оставшиеся цифры в массиве умноженные на соответствующим вес разряда (1, 10, 100 ....) Точнее 10^0, 10^1, 10^2 и т.д.