Турбо Паскаль. ПОМОГИТЕ ЛЮДИ ДОБРЫЕ!

Question

Турбо Паскаль. ПОМОГИТЕ ЛЮДИ ДОБРЫЕ! Даны 3 числа, подсчитать количество четных и не четных чисел, не испоьзуя логические операции (and, or, not) КАКМОЖНО ПРОЩЕ. СПАСИБО

Answer 1

55

pavke

20 апреля 2023

var a,b,c,nchet,nnechet: integer; begin nchet: =0; nnechet: =0; writeln ('Введите 3 числа'); readln (a,b,c); if a mod 2=0 then nchet: =nchet+1 else nnechet: =nnechet+1; if b mod 2=0 then nchet: =nchet+1 else nnechet: =nnechet+1; if c mod 2=0 then nchet: =nchet+1 else nnechet: =nnechet+1; writeln ('Количество четных чисел равно ',nchet,', количетсво нечетных равно ',nnechet); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: