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

Question

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

Comments

В смысле "удалить"? т.е если есть число 512, то должно быть 2&

---

Такое задание

---

В смысле что на месте удалённой цифры? 0? Или просто сдвигать, вправо

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.

Comments

А если взять число и для начала разбить его на цифры?

---

Так, что бы число изначально не массивом а числом задавалось?

---

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

---

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

---

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

---

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

---

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