Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Zadacha5_Reworked;
- var
- ans:Boolean; a,b,c:Integer;
- begin
- read(a,b,c);
- ans := (a mod 2 = 1);
- writeln('Число ',a,' нечётное? - ',ans);
- ans := (b mod 2 = 1);
- writeln('Число ',b,' нечётное? - ',ans);
- ans := (c mod 2 = 1);
- writeln('Число ',c,' нечётное? - ',ans);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement