Даны 3 различных числа. Определить, какое из них (первое, второе или третье) является средним. По программированию Паскаля. Помогите пожалуйста!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Vara, b, c: real;
function IsBetween(x, a, b: real): boolean;
var
t: real;
begin
if a < b then
begin
t := a;
a := b;
b := t;
end;
IsBetween := (a >= b) and (a >= x) and (x >= b);
end;
begin
Readln(a, b, c); // не вводить одинаковых!
Write('Среднее число №');
if IsBetween(a, b, c) then writeln(1);
if IsBetween(b, a, c) then writeln(2);
if IsBetween(c, b, a) then writeln(3);
end.