Информатика

Гертруда

31 августа, 23:32

5. Исходя из условия задачи, исправьте программу и напишите правильное решение

Задача: Даны три целых числа A, B, C. Определить, есть ли среди них хотя бы одно четное и хотя бы одно нечетное.

var a, b, c, d: integer;

begin

readln (a, b, c) ;

d : = 0;

if a mod 2 = 0

then d : = d + 1;

if b mod 2 = 0

then d : = d + 1;

if c mod 2 = 0

then d : = d + 1;

if a mod 2 0

then d : = d + 1;

if b mod 2 0

then d : = d + 1;

if c mod 2 0

then d : = d + 1;

if d > 0

then writeln ('YES')

else writeln ('NO') ;

end.