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

Question

Информатика

Василиса

10 февраля, 06:55

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

+1

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