Получить новую последовательность, выбросив из исходной все члены, которые деляться на 2 без остатка - Turbo Pascal

  1. Даны целые a1...... ai(i=i20) Получить новую последовательность выбросив из исходно все члены которые деляться на 2 без остатка.


textual

Код к задаче: «Получить новую последовательность, выбросив из исходной все члены, которые деляться на 2 без остатка - Turbo Pascal»

program even;
 
var i, k, t: integer;
    a: array [1..20] of integer;
 
begin
  randomize;
  k := 0;
  for i := 1 to 20 do
    begin
      t := random(198) - 99;
      write(t:4);
      if t mod 2 = 0 then //not(odd(t)), (t and 1) = 0, odd(t xor 1)...
        begin
          k := k + 1;
          a[k] := t
        end
    end;
  writeln;
  for i := 1 to k do write(a[i]:4);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.833 из 5



Похожие ответы
  1. Условие: Разработать программу для реализации указанного действия над целыми числами без знака (longint) в десятичной системе счисления. Написать две программы: 1) с использованием массивов, т.е. число представить в виде массива цифр, произвести необходимые действия, из массива цифр получить новое число и результат вывести в виде нового числа; 2) без использования массивов. Задание: Из двух чисел получить новое путем замены четных цифр первого числа на наибольшую цифру второго числа (231, 73 → 731)

  1. В детском саду готовятся к Новогоднему празднику. Дед Мороз, известный всем своей незаурядностью, придумал для детей новый конкурс. У Деда Мороза имеется мешок с N фишками. Каждый раз Дед Мороз выбирает из группы двоих детей, каждый из которых извлекает из мешка Деда Мороза одну фишку. Ребенок, который извлек фишку с большим номером, получает от Деда Мороза конфеты в количестве, равном числу, написанному на его фишке, второй ребенок не получает ничего. После вручения конфет фишка с большим номером остается у ребенка, а фишка с меньшим номером возвращается обратно в мешок. Игра продолжается до тех пор, пока в мешке находится не менее двух фишек. Из пяти фишек были вытянуты фишки с числами 5 и 4, было получено 5 конфет (фишка выделена цветом), фишка с числом 4 была возвращена в мешок. Деду Морозу необходимо определить максимальное количество конфет, которое могут получить игравшие дети. Ваша задача – помочь Дедушке в этом нелегком вопросе. Входные данные Первая строка входного файла содержит одно целое число N (2 ≤ N ≤ 1000), которое определяет число фишек в мешке Деда Мороза. Вторая строка входного файла содержит ровно N различных целых чисел Ai (1 ≤ Ai ≤ 32767). Числа в строке разделяются одиночными пробелами. Ai – число, написанное на i-й фишке. Выходные данные Единственная строка выходного файла содержит одно целое число – максимально возможное количество конфет, которые могут получить игравшие дети. input.txt 2 7 3 7 output.txt 5 2 5 3 4 7 19

  1. Дано предложение.получить предложение,в котором самое длин.слово записано наоборот

  1. Получить последовательность dk, dk-1, ..., d0 десятичных цифр числа 100!-2^100, , т. е. такую целочисленную последовательность, в которой каждый член di удовлетворяет условию 0≤di≤9 и, дополнительно, dk∙10k+ dk-1∙10k-1+…+ d0=100!-2^100

  1. Даны числа А1,..,А10;B1,..,B20.Получить матрицу С i,j,(i=1,..,20;j=1,..,10) Для которой Сi,j=A/(1+Bi). Ребят,помогите!

  1. 4. Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый массив путем деления всех элементов данного массива на ее больший по модулю элемент.

  1. Получить матрицу: 1 0 ... 0 1 0 1 ... 1 0 ............. 0 1 ... 1 0 1 0 ... 0 1

  1. Дано натуральное число N. Получить последовательность b1...bn, Где i= 1,2,3,4...,n. Значение bi равно: Сделать динамическим списком! Помогите, не получается

  1. Дано натуральное число n. Получить все простые делители этого числа.