• Определите, имеется ли среди заданных целых чисел   A, BC хотя бы одно чётное.

Ответы 1

  • var a,b,c,count:integer;

    begin writeln ('Введите любые три числа '); readln(a); readln(b); readln(c); count:=0; if a mod 2=0 then inc(count); if b mod 2=0 then inc(count); if c mod 2=0 then inc(count); if count>0 then writeln ('Среди данных чисел есть ',count,' четн.') else writeln ('Среди данных чисел четных нету');end.

    • Автор:

      yairfry
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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