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

Запишите метод определения количества чётных чисел среди данных целых чисел 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;

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт