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

Ответы 6

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

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

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

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

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

      jesus55
    • 6 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years