Автор: Bronislav

Bronislav — Fri, 09 Feb 2018 17:42:01 +0000

var a,b:integer;
begin
  readln(a,b);
  if a<>b then (a,b):=(a+b,a+b)
  else if a=b then (a,b):=(0,0);
  write(a,' ',b);
end.

var a,b:integer;

begin

readln(a,b);

if a<>b then (a,b):=(a+b,a+b)

else if a=b then (a,b):=(0,0);

write(a,' ',b);

end.

Комментарии: Решаем задачи Абрамян на Паскале. If10