Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program MyProgram;
- var
- a,b,c,minim,maxim: real;
- begin
- readln(a,b,c);
- { находим максимальное число из трех }
- if a > b then
- maxim := a
- else
- maxim := b;
- if c > maxim then
- maxim := c;
- { находим минимальное число из трех }
- if a < b then
- minim := a
- else
- minim := b;
- if c < minim then
- minim := c;
- { проверяем каждое число, если является средним
- (больше максимального и меньше минимального), то выводим это число }
- if (a > minim) and (a < maxim) then
- writeln(a:0:2);
- if (b > minim) and (b < maxim) then
- writeln(b:0:2);
- if (c > minim) and (c < maxim) then
- writeln(c:0:2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment