Boolean34. Даны координаты поля шахматной доски $$x$$, $$y$$ (целые числа, лежащие в диапазоне 1–8). Учитывая, что левое нижнее поле доски $$(1, 1)$$ является черным, проверить истинность высказывания: «Данное поле является белым».
Решение:
|
1 2 3 4 5 6 7 8 9 10 |
program Boolean34; var x,y: Integer; begin Write('Введите 1 координату шахматной доски: '); Readln(x); Write('Введите 2 координату шахматной доски: '); Readln(y); Writeln(((x+y) mod 2)>0); end. |
Решение от Ирины:
|
1 2 3 4 5 6 7 8 9 10 |
program Boolean34; var x,y: Integer; begin Write('Введите 1 координату шахматной доски: '); Readln(x); Write('Введите 2 координату шахматной доски: '); Readln(y); writeln(odd(x+y)); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
так все просто оказалось, а я перемудрил):
в начале у меня получилось примерно так же, просто я потом сократил формулу
и ещё короче
writeln(‘Данное поле является белым ‘, odd(x+y));
К стати, да!
Добавил в шапку.
writeln(((x mod 2= 0) and (y mod 20)) or ((x mod 20) and (y mod 2=0))) все так просто
к сожалению знаки > и < воспринимаются как теги.. большая просьба вставлять код через кнопку Вставить код. Тогда всё будет красиво и ничего не будет пропадать..