|
|
вернуться в форумПоказать все сообщения Спрятать все сообщенияwa3? mediant 8 фев 2013 01:29 var a,b:integer; begin if(a mod 2 =1) or (b mod 2=0) then writeln('no') else writeln('yes') end. or wa1? var c,d : integer; a,b : string[4]; begin readln(a); readln(b); val(a,c); c:=c mod 2; val(b,d); d:=d mod 2; writeln(c,d); if (c=1) or (d=0) then writeln('no') else writeln('yes'); end. |
|
|