Question

Напишите процедуру которая находит абсолютные значения суммы двух целых чисел а и b,значения а и b будут переданы в процедуру в качестве параметра..

Answer 1

procedure sm(a,b: integer);

var s: integer;

begin

s:=a+b;

if s<0 then s:=s*(-1);

write('s=',s);

end;

var a,b: integer;

begin

readln(a,b);

sm(a,b);

end.