Advertisement
Guest User

Untitled

a guest
Apr 8th, 2020
177
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.24 KB | None | 0 0
  1. Program abc;
  2. var
  3.     a,b:integer;
  4. begin
  5.     readln(a,b);
  6.     if(a mod 2 = 0) or (b mod 2 = 0) then writeln('Одно из чисел четное, либо они оба четные')
  7.     else writeln('Числа не четные');
  8. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement