Question

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.

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 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.

Тестовое решение:
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное