begin
writeln('Координаты первого поля:');
write(' x1 = ');
readln(x1);
write(' y1 = ');
readln(y1);
writeln('Координаты второго поля:');
write(' x2 = ');
readln(x2);
write(' y2 = ');
readln(y2);
writeln;
{ Поскольку Ферзь ходит и как ладья (горизонталь - вертикаль),
и как слон (диагональ), нам надо объединить эти направления.
Как было сказано в задаче boolean36, для успешного перехода
ладьей необходимо совпадение или координат x, или координат
y. Поэтому выражение f будет состоять в том, что или x1=x2,
или y1=y2: }
f := (x1 = x2)or(y1 = y2);
{ Но ферзь может ходить и как слон, поэтому выражение g будет
состоять в том, что разницы соответствующих координат по
модулю равны между собой (см. предыдущую задачу boolean38):}
g := abs(x1 - x2) = abs(y1 - y2);
{ Таким образом, поскольку ферзь ходит или как ладья, или как
слон, то выражения f и g объединим логическим оператором or
("или" - или ладья, или слон):}
writeln(f or g);
readln
end.
Объяснение:
2. Поместите наречия частоты в нужное место в предложениях ниже
1. Дастан и Арман часто голодны.
2. Моя бабушка всегда выходит на прогулку вечером.
3. Санджар обычно отцу на кухне.
4. Они некогда не смотрят телевизор по утрам.
5. Сара очень дружелюбна. (обычно)
2. Put the adverbs of frequency into the right place in the sentences below
1. Dastan and Arman often are hungry.
2. My grandmother always goes for a walk in the evening.
3. Sanjar usually helps his father in the kitchen.
4. They never not watch TV in the morning.
5. Sara usually is very friendly.
x1, y1, x2, y2: byte;
f, g: boolean;
begin
writeln('Координаты первого поля:');
write(' x1 = ');
readln(x1);
write(' y1 = ');
readln(y1);
writeln('Координаты второго поля:');
write(' x2 = ');
readln(x2);
write(' y2 = ');
readln(y2);
writeln;
{ Поскольку Ферзь ходит и как ладья (горизонталь - вертикаль),
и как слон (диагональ), нам надо объединить эти направления.
Как было сказано в задаче boolean36, для успешного перехода
ладьей необходимо совпадение или координат x, или координат
y. Поэтому выражение f будет состоять в том, что или x1=x2,
или y1=y2: }
f := (x1 = x2)or(y1 = y2);
{ Но ферзь может ходить и как слон, поэтому выражение g будет
состоять в том, что разницы соответствующих координат по
модулю равны между собой (см. предыдущую задачу boolean38):}
g := abs(x1 - x2) = abs(y1 - y2);
{ Таким образом, поскольку ферзь ходит или как ладья, или как
слон, то выражения f и g объединим логическим оператором or
("или" - или ладья, или слон):}
writeln(f or g);
readln
end.