Question

abc pascal Задано два числа. Чи є вони обидва парними?
var x,y: real; begin writeln(''); readin ( (x, y) ; s:=0 ; if (x mod 2 = 0) and (y mod 2 =0) then - Начало Дописать надо

Answer 1

program evenodd;

var x, y: longint;

begin

   readln(x, y);

   if ((x mod 2 = 0) and (y mod 2 = 0)) then

       writeln('Both numbers are even')

   else

       writeln('One of the numbers is odd')

end.