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

Microsoft Qbasic
INPUT a, b
IF a = b THEN
a = 0
ELSE
a = -a: b = -b
END IF
PRINT a, b

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Read(a,b);
if a=b then a:=0
else begin a:=-a; b:=-b end;
Println(a,b)
end.

Оцени ответ

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