Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Паскаль. Составьте блок схему и программу определения минимума из трёх чисел не используя логических операций. Программа должна иметь дружественный интерфейс.

Ответ оставил Гость

Function Min(aa,bb : Integer) : Integer;
Begin
  Min:=(aa+bb) div 2 - abs(aa-bb) div 2;
end;
Var A,B,C : Integer;
Begin
  Write(Введите три числа: ); Readln(A,B,C);
  Writeln(Минимальное число: ,Min(A,Min(B,C)));
end.