Напишите процедуру которая находит абсолютные значения суммы двух целых чисел а и b,значения а и b будут переданы в процедуру в качестве параметра..
293
481
Ответы на вопрос:
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.
Популярно: Информатика
-
fdffxdf09.01.2021 15:09
-
Regina39128.12.2021 17:43
-
wassilina20.07.2020 15:29
-
Вова337134620.03.2022 08:28
-
Новичок30111726.01.2020 23:44
-
макс309304.06.2023 08:13
-
Карапиди28.02.2020 05:22
-
090904423.01.2020 07:21
-
VasiliyLihasdb31.07.2020 16:02
-
ялюблюкотиков10.03.2021 23:14