Задание:
Турбо Паскаль. ПОМОГИТЕ ЛЮДИ ДОБРЫЕ! Даны 3 числа, подсчитать количество четных и не четных чисел, не испоьзуя логические операции (and, or, not) КАКМОЖНО ПРОЩЕ. СПАСИБО
Решение:
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.
Знаете другой ответ?