5. Исходя из условия задачи, исправьте программу и напишите правильное решение Задача: Даны три целых числа A, B, C. Определить,
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.
Var i,n:integer; IsOdd,IsEven:boolean; begin IsOdd:=false; IsEven:=false; Write('Введите три числа: '); for i:=1 to 3 do begin Read(n); if n<>0 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.
<em><u>Тестовое решение:</u></em> Введите три числа: 5 8 3 Среди введенных чисел есть нечетное и есть четное