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

gimnastikgirla gimnastikgirla    3   20.07.2019 05:00    0

Ответы
VasilisaBelkina VasilisaBelkina  22.09.2020 19:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика