Автор Биенко Екатерина задал вопрос в разделе Другие языки и технологии
Задачка Pascal)) и получил лучший ответ
Ответ от Кrab Bark[гуру]
var a,b,c,d:byte; begin write('a b c d ?'); readln(a,b,c,d); writeln((a=c)or(b=d)); readln end.
Ответ от -Egor-[гуру]
Там чё в школах с ума все посходили (или я уже ничего не понимаю) ..
Там чё в школах с ума все посходили (или я уже ничего не понимаю) ..
Ответ от Їак Норрис[гуру]
Хе, ну ладья то ходит прямо, т. е. либо a=c либо b=d. Вот и вся задачка. А насчет второй не понял, это три разные задачки или найти k которое удовлетворяет всем трем условиям ? Вобщем если серьезно надо то отщелкаю, пЕши в личку.
Хе, ну ладья то ходит прямо, т. е. либо a=c либо b=d. Вот и вся задачка. А насчет второй не понял, это три разные задачки или найти k которое удовлетворяет всем трем условиям ? Вобщем если серьезно надо то отщелкаю, пЕши в личку.
Ответ от Ashkhen Manukian[активный]
1-ое.var k, l, m, n: integer;begin readln(k,l,m,n); if (k+l+m+n mod 2 = 0) then writeln('поля одного цвета') else writeln('поля разных цветов')end.
1-ое.var k, l, m, n: integer;begin readln(k,l,m,n); if (k+l+m+n mod 2 = 0) then writeln('поля одного цвета') else writeln('поля разных цветов')end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Задачка Pascal))