Question

Составьте программу про блок схеме (PascalABC)

Answer 1

Program n_1;

var x, y, z, min: double;

begin

   read(x, y, z);

   if (x<=y) and (x<=z) then min:=x;

   if (y<=x) and (y<=z) then min:=y;

   if (z<=x) and (z<=y) then min:=z;

   writeln(min:0:5);

end.

Если элементы 100% целочисленные, то double змени на integer, а также строку вывода замени на writeln(min);