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

Question

Информатика

Ируня

19 августа, 17:09

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

+4

Ответы (1)

Знаете ответ на вопрос?

Сергуна · Answer 1

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.