• Запишите алгоритм определения количества чётных чисел среди заданных целых чисел A, B и C

Ответы 1

  • var

     A, B, C, i: Integer;

    begin

       Write ('Введите значение A: ');

       ReadLn (A);

       Write ('Введите значение B: ');

       ReadLn (B);

       Write ('Введите значение C: ');

       ReadLn (C);

       i := 0;

       if A mod 2 = 0 then

         Inc (i);

       if B mod 2 = 0 then

         Inc (i);

       if C mod 2 = 0 then

         Inc (i);

       Writeln ('Количество четных чисел = ' + IntToStr (i));

    end;

    • Автор:

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

Войти через Google

или

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

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

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