PASCAL ABC Определить количество отрицательных четных элементов заданной числовой последовательности. Последовательность

Question

Информатика: PASCAL ABC Определить количество отрицательных четных элементов заданной числовой последовательности. Последовательность содержит как положительные так и отрицательные элементы. В первой строке через пробел перечислены значения элементов целочисленной последовательности, которая заканчивается нулем. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000. ( )

maxtigr24 · Answer

var a : string;b : Array of string;c, e : integer;count : integer := 0;begin  read(a);  b := a.ToWords( );  // Преобразуем ввод в массив  for i : integer := 0 to Length(b) - 2 do  begin    Val(b[i], c, e); // Преобразуем строку в число    if (c 0) and (c mod 2 = 0) then count += 1;  end;  write(count);end.Если я смог тебе , то и мне - сделай этот ответ лучшим :)...

Популярные вопросы