Составьте программу сортировки по возрастанию значений трёх переменных: a, d,c.

Var       a, d, c, t: integer; begin       readln(a, d, c);       if a < d then begin t : = a; a : = d; d : = t; end;       if a < c then begin t : = a; a : = c; c : = t; end;       if d < c then begin t : = d; d : = c; c : = t; end;       writeln(a, ' ', d, ' ', c); end.

как пример:

 

составное выражение, лигические операторы:

not - отрицание

and - умножение

or - сложение

 

результат - истина:

(2 + 2 = 5) - ложь, в инверсии - истина

(3 * 3 = 9) - истина

(1+1=8) - ложь, но не влияет на результат, поскольку -

not(2 + 2 = 5) and (3 * 3 = 9) - истина

 

program bapehbe;

var

    l, b, s : integer;

    o : real;

begin

    writeln (' skolko litrov varenya v tazy? ');

    readln (l);

    writeln (' kakaya emkost banok? ');

    readln (b);

    s: = l div b;

    o: = l mod b;

    writeln (' polnih banok_', s);

    writeln (' litrov ostaloc_', o: 2: 2);

    readln;

end.