Объяснение:
& не стоит у меня, но выполняет свои действия, у себя его ставьте!
Виден только 7 номер
Не видно полное условие и не понятно для чего нужна переменная z, если все правильно понимаю то по условию значение у выведет я ответ 'да'
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
3 задание.,,,,, ,,,,,,,
ArtemKrapitski [14]
Ответ 2. Задание вроде как не школьное. А скорее всего из дискретной математики первого курса.