ввести 2 числа.заменить первое число нулем если оно равно второму и поменять оба...

August 2022 1 10 Report

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

Answers & Comments

vladmor 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.

0 votes Thanks 0

Answers & Comments

Helpful Links

Helpful Social