Задача 15 Урок 9
Primary tabs
У вас есть три числа (три переменные) найдите их медиану
Решение:
var a, b, c:integer; begin writeln('vvedite a, b, c'); readln (a,b,c); if ((b < a) and (a < c)) or ((b > a) and (a > c)) then writeln('mediana: a'); if ((a < b) and (b < c)) or ((a > b) and (b > c)) then writeln('mediana: b'); if ((b < c) and (c < a)) or ((b > c) and (c > a)) then writeln('mediana: c'); readln; end.
Консоль:
vvedite a, b, c 1 2 3 mediana: b
- Log in to post comments
- 896 reads
vedro-compota
Sat, 04/09/2022 - 20:16
Permalink
1) Если изветно что два числа
_____________
матфак вгу и остальная классика =)
Neoanthropus
Mon, 04/25/2022 - 22:08
Permalink
var a, b, c:integer;
vedro-compota
Wed, 04/27/2022 - 20:17
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)