Автор: Anton

Anton — Fri, 02 Oct 2015 07:20:04 +0000

В ответ на Евгений Куприн. В защиту своего решения я над ним долго думал и оно должно быстрее работать. Но с наглядностью да намного хуже.

Автор: Евгений Куприн

Евгений Куприн — Mon, 21 Sep 2015 18:53:41 +0000

program zif13;
 var a,b,c:real;
begin
 Readln(a,b,c);
 if ((a<c)and(c<b)) or ((b<c)and(c<a)) then writeln(c);
 if ((b<a)and(a<c)) or ((c<a)and(a<b)) then writeln(a);
 if ((c<b)and(b<a)) or ((a<b)and(b<c)) then writeln(b);
end.

program zif13;

var a,b,c:real;

begin

Readln(a,b,c);

if ((a<c)and(c<b)) or ((b<c)and(c<a)) then writeln(c);

if ((b<a)and(a<c)) or ((c<a)and(a<b)) then writeln(a);

if ((c<b)and(b<a)) or ((a<b)and(b<c)) then writeln(b);

end.

Комментарии: Решаем задачи Абрамян на Паскале. If13

Автор: Anton

Автор: Евгений Куприн