Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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.

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