13 задача 9 урок
Primary tabs
У вас есть три числа (три переменные) найдите их медиану
var a,b,c:integer; begin writeln('vvedite chislo a'); readln(a); writeln('vvedite chislo b'); readln(b); writeln('vvedite chislo c'); readln(c); if ((a>=b)and(a<=c)or(a>=c)and(a<=b)) then begin writeln('mediana naidena ', a); end else if ((b>=a)and(b<=c)or(b>=c)and(b<=a)) then begin writeln('mediana naidena ', b); end else if ((c>=a)and(c<=b)or(c>=b)and(c<=a)) then begin writeln('mediana naidena ', c); end; readln(); end.
вывод консоли
vvedite chislo a 2 vvedite chislo b 2 vvedite chislo c 1 mediana naidena 2
- Log in to post comments
- 1014 reads
vedro-compota
Wed, 12/29/2021 - 18:21
Permalink
проверить для 2 2 1
проверить для
_____________
матфак вгу и остальная классика =)