Advertisement
Guest User

Untitled

a guest
Apr 9th, 2020
164
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.36 KB | None | 0 0
  1. program Zadacha5_Reworked;
  2. var
  3. ans:Boolean; a,b,c:Integer;
  4. begin
  5.     read(a,b,c);
  6.    
  7.     ans := (a mod 2 = 1);
  8.     writeln('Число ',a,' нечётное? - ',ans);
  9.    
  10.     ans := (b mod 2 = 1);
  11.     writeln('Число ',b,' нечётное? - ',ans);
  12.    
  13.     ans := (c mod 2 = 1);
  14.     writeln('Число ',c,' нечётное? - ',ans);
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement