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.

Question

Информатика

Пануля

22 мая, 02:29

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.

+2

Ответы (1)

Знаешь ответ?

Исаакин · Answer 1

Var

i, n:integer;

IsOdd, IsEven:boolean;

begin

IsOdd:=false; IsEven:=false;

Write ('Введите три числа: ');

for i:=1 to 3 do

begin

Read (n);

if n0 then

if (n mod 2) = 0 then IsEven:=True

else IsOdd:=True

end;

Write ('Среди введенных чисел ');

if IsOdd then Write ('есть нечетное')

else Write ('нет нечетных');

if IsEven then Write (' и есть четное')

else Write ('и нет четных')

end.

Тестовое решение:

Введите три числа: 5 8 3

Среди введенных чисел есть нечетное и есть четное