Ввести 2 числа.заменить первое число нулем если оно равно второму и поменять оба числа на противоположные(с обратным знаком) в противном случае

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b: integer; begin writeln ('Введите два числа'); read(a,b); if a=b then a:=0 else begin a:=-1*a; b:=-1*b; end; writeln(a,' ',b); end.