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

pomogitmneaaaa pomogitmneaaaa    3   16.10.2019 18:30    0

Ответы
tarlaejan12 tarlaejan12  10.10.2020 07:23

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика