Question

Составьте программу сортировки по возрастанию значений трех переменных: А, В, С. Продемонстрируйте данный алгоритм в виде блок-схемы.

Answer 1

Program pr1;

uses crt;

var

a,b,c:integer;  // Числа

Begin

clrscr;

writeln('Введите числа: ');

readln(a,b,c);

if (a<=b) and (a<=c) then writeln(a);

if (b<=a) and (b<=c) then writeln(b);

if (c<=a) and (c<=b) then writeln(c);

End.