Задать вопрос Регистрация
Помочь другим

  • дан набор ненулевых чисел ,признак его завершения число 0 .вывести сумму всех положительных четных чисел из данного набора. если требуемые числа отсутсвуют вывести то вывести 0

Ответы 1

  • var a,s:integer;begina:=-1;while (a<>0) do beginread(a);if a>0 then s+=a;end;writeln(s);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years