pascal

[geship]

4. Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда только одно из чисел a и b четное .
напишите пожалуйста полное решение

[Mad_Cat]

var a,b:integer;
begin
readln(a,b);
writeln( (odd(a) and not odd(b)) or (odd(b) and not odd(a)));
end.

[ByAlex]

Сообщение от geship

4. Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда только одно из чисел a и b четное .
напишите пожалуйста полное решение

Я понял так - если a и b четные, то выводим true, в противном случае false.

var
  a,b:integer;
begin
   write('Vvedite a and b : ');
   readln(a,b);
   if ((a mod 2)=0) and ((b mod 2)=0) then
      write('true')
   else write('false');
   readln;
end;

[geship]

ок ок спасибо)))

[Mad_Cat]

Я понял так - если a и b четные, то выводим true, в противном случае false.

читаем внимательнее

только одно из чисел a и b четное

[geship]

ааа... спасибо щас поправлю)