Прости,но не мог бы ты написать вопрос на русском языке,а то так не смогу помочь(
Function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
else
if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
else Knight := false
end;
function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;
var
xk, yk, xq, yq: integer;
begin
Write('Укажите через пробел координаты коня [1..8]: ');
Readln(xk, yk);
Write('Укажите через пробел координаты ферзя [1..8]: ');
Readln(xq, yq);
if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
else
if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
else Writeln('Фигуры не угрожают друг другу')
end.
Примеры выполнения программы:
Укажите через пробел координаты коня [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 1 7
Ферзь бьет коня
Укажите через пробел координаты коня [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 7 7
Фигуры не угрожают друг другу
Укажите через пробел координаты коня [1..8]: 4 3
Укажите через пробел координаты ферзя [1..8]: 5 5
Конь бьет ферзя
program zagadki2;
var a, b, c, d:string;
label r;
begin
writeln('Привет, я программа, загаывающая загадки');
writeln('Будешь отгадывать ?');
readln(a);
if a = 'да' then writeln('Зимой и летом одним цветом.')
else
begin
writeln('пока');
goto r;
end;
Readln(b);
if b = 'ёлка' then writeln('правильно!')
else
begin
writeln('нет,попробуй ещё раз');
Readln(b);
if b = 'ёлка' then writeln('правильно!!!')
end;
writeln('Сидит красавица в темнице, а коса на улице.');
Readln(c);
if c = 'морковь' then writeln('правильно!')
else
begin
writeln('попробуй ещё раз');
Readln(c);
if c = 'морковь' then writeln('правильно')
end;
writeln('Не лает, не кусает, да в дом не пускает.');
Readln(d);
if d = 'замок' then writeln('правильно')
else
begin
writeln('попробуй ещё раз');
Readln(d);
if d = 'замок' then writeln('правильно');
end;
r:
end.
В двоичной системе счисления используются 0 и 1, в троичной - 0, 1, 2, соответственно, в восьмеричной должны использоваться только 0, 1, 2, 3, 4, 5, 6, 7. Следовательно, число 824 не может быть представлено в восьмеричной системе счисления.
Ответ:
1. 1362 :8 :1024.=0.17кб
2. 72 *8. = 1362000 б
3. 16:8:1024. = 0.000002мб