Задача 13 Урок 9
Primary tabs
У вас есть три числа (три переменные) найдите их медиану
program project13; { Даны три переменные. Надо найти медиану (среднее число). } var a,b,c:integer; b1:boolean; begin writeln('Vvedite chislo a: '); readln(a); writeln('Vvedite chislo b: '); readln(b); writeln('Vvedite chislo c: '); readln(c); b1:=((a>b)and(c>a)) or ((b>a)and(a>c)); if(b1) then writeln('mediana ravna ', a) else if(b>c) then writeln('mediana ravna ', c) else writeln('mediana ravna ', b); end.
Консоль:
Vvedite chislo a: 4 Vvedite chislo b: 1 6 Vvedite chislo c: 9 mediana ravna 9
- Log in to post comments
- 509 reads