ввести 2 числа.заменить первое число нулем если оно равно второму и поменять оба числа на противоположные(с обратным знаком) в противном случае
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
writeln ('Введите два числа');
read(a,b);
if a=b then a:=0
else
begin
a:=-1*a; b:=-1*b;
end;
writeln(a,' ',b);
end.