помогите решить задачу,в паскале,пожалуйста.

[solovey.kurskiy]

Даны два числа х и у ,если эти числа не равны,то заменить их нулями,в проитивном случаи заменить их единицами.

[Stilet]

Такая простая задача...
Что не получается?

[Poma][a]

x := Ord (x=y); y := x;

[Zooma]

if(x<>y) then // Сравниваем два числа, если не равны, то
begin           
x:=0; y:=0;  // Присваеваем х и у к 0
end
else // Иначе
begin
x:=1; y:=1; // Присваеваем к 1
end;

[Stilet]

Poma][a

Аналогично думал, но по старой привычке вместо Ord() написал бы Byte()

[Poma][a]

Аналогично думал, но по старой привычке вместо Ord() написал бы Byte()

Честно говоря, Byte () мне более близок, более понятен (всё-таки приведение типов, а не магия).. но из-за acmp привык писать Ord () (Спасибо Аватару )

[Аватар]

Ни капли не магия - просто позиция в перечисляемом типе. Пожалуйста

PS

Приведение типов больше на магию похоже

[Poma][a]

Ни капли не магия

Всё же приведение как-то получше (яснее) будет

[Serge_Bliznykov]

ну, раз не магия, тогда ещё один "хакерский" вариант:

const newValue : array[false..true] of integer = (1,0);
var x, y : integer;
begin
  Readln(x,y);
  x := newValue[x<>y];
  y := x;
  WriteLn('x=',x,'  y=',y);
  Readln
end.

p.s. не хакерский вариант приведён в пост #4

[Poma][a]

const newValue : array[false..true] of integer = (1,0);
var x, y : integer;
begin
  Readln(x,y);
  x := newValue[x<>y];
  y := x;
  WriteLn('x=',x,'  y=',y);
  Readln
end.

Забавно.. Где-то видел у TinMan'а такой вариант, особенно классно, когда просят вывести
"Да" или "Нет".

var
    answer : array [false..true] of string = ('Нет', 'Да');

<...>
WriteLn (answer[условие]);