• !!!даю 35 баллов!!!
    Последовательность оканчивается 0, определить сумму четных чисел, кол-во нечетных. Если есть хотя бы одно отрицательное-на экран вывести слово "отрицательное".

Ответы 1

  • var    s, n, a : integer;begin    a := 1;    s := 0;    n := 0;    repeat        readln(a);        if a <> 0 then begin            if a mod 2 = 0    then s += a                            else n += 1;            if a < 0 then                writeln('Отрицательное');        end    until a = 0;        writeln('Сумма четных = ', s);    writeln('Количество нечетных = ', n)end.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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