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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!