Задание 5 Параграф 22 ГДЗ Семакин 8 класс (Информатика)

Задача

program task_5;
var a,b,c:integer;
begin
writeln(‘Введите a,b,c’);
readln(a,b,c);
if a > b then begin a:=a+b; b:=a-b; a:=a-b end;
if b > c then begin b:=b+c; c:=b-c; b:=b-c end;
if a > b then begin a:=a+b; b:=a-b; a:=a-b end;
writeln(‘a=’,a,’ b=’,b,’ c=’,c);
end.

Подробный ответ

Чтобы упорядочить три переменные по возрастанию, достаточно последовательно сравнить соседние значения и при необходимости поменять их местами. После первого сравнения наименьшее из a и b окажется слева. Затем сравниваем b и c. После этого ещё раз проверяем a и b, чтобы окончательно получить порядок $$a \le b \le c$$.

program task_5;
var a,b,c: integer;
begin
  writeln(‘Введите a,b,c’);
  readln(a,b,c);
  if a > b then begin a:=a+b; b:=a-b; a:=a-b end;
  if b > c then begin b:=b+c; c:=b-c; b:=b-c end;
  if a > b then begin a:=a+b; b:=a-b; a:=a-b end;
  writeln(‘a=’,a,’ b=’,b,’ c=’,c);
end.

В программе используется обмен значений без дополнительной переменной: после сложения и вычитания переменные меняются местами.