Используя альтернативную часть кода зашифруйте загадку. Запишите ответ с кодировки. (письменно).

241

472

Посмотреть ответы 1

Ответы на вопрос:

769429

Информатика

4,6(80 оценок)

Program n1; procedure sort(var a, b, c: integer); var t: integer; begin if a < b then begin t : = b; b : = a; a : = t end; if a < c then begin t : = c; c : = a; a : = t end; if b < c then begin t : = c; c : = b; b : = t end end; var a, b, c: integer; begin writeln('введите три числа: '); readln(a, b, c); sort(a, b, c); writeln('числа по убыванию: ', a, ' ', b, ' ', c) end.