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