Найти среди чисел a, b, c наименьшее и заменить им число, большее из них - Free Pascal

Формулировка задачи:

1. Найти среди чисел a, b, c наименьшее и заменить им число, большее из них.

Код к задаче: «Найти среди чисел a, b, c наименьшее и заменить им число, большее из них - Free Pascal»

textual
var a,b,c,mn: real;
begin
readln(a,b,c);
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
if(a>b)and(a>c) then a:=mn
else if(b>c)and(b>a)then b:=mn
else if(c>a)and(c>b)then c:=mn;
writeln('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
end.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ