LundPASCAL ABCОпределить количество отрицательных четных элементов заданной числовой последовательности. Последовательность содержит как положительные так и отрицательные элементы. В первой строке через пробел перечислены значения элементов целочисленной последовательности, которая заканчивается нулем. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000. (1 балл)
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
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.
Если я смог тебе помочь, то помоги и мне - сделай этот лучшим :)
206
FomichevaЧтобы ответить необходимо зарегистрироваться.
