Var a,b,c:integer; s:real; begin read(a,b,c); if (a>b)and (a>c) then s:=(b+c)/2else if (c>a)and (c>b) then s:=(b+a)/2 else if (b>a)and (b>c) then s:=(a+c)/2; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
