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

Ответы:

Анастасия Карпова

01-05-2013 16:41

varx, s, count: longint;beginx := 1;s := 0;count := 0;while x <> 0 dobeginread(x);if x < 0 theninc(count);if x mod 4 = 0 thens := s + x;end;writeln(count, , s);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ДАМИР БИКОВЕЦЬ

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем. Найти количество отрицательных чисел и сумму чисел кратных 4.» от пользователя ДАМИР БИКОВЕЦЬ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!