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

Question

Информатика

Степуня

22 ноября, 14:43

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

+3

Ответы (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.