Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program abc;
- var
- a,b:integer;
- begin
- readln(a,b);
- if(a mod 2 = 0) or (b mod 2 = 0) then writeln('Одно из чисел четное, либо они оба четные')
- else writeln('Числа не четные');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement