С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем. Найти количество отрицательных чисел и сумму чисел кратных 4.

Question

Информатика

Стеха

19 июля, 20:13

С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем. Найти количество отрицательных чисел и сумму чисел кратных 4.

+5

Ответы (1)

Знаешь ответ?

Лаура · Answer 1

Var

x, s, count: longint;

begin

x : = 1;

s : = 0;

count : = 0;

while x 0 do

begin

read (x);

if x < 0 then

inc (count);

if x mod 4 = 0 then

s : = s + x;

end;

writeln (count, ' ', s);

end.