Задача 13 Урок 9
Primary tabs
У вас есть три числа (три переменные) найдите их медиану
program project1; var a, b, c: integer; begin a := 1; b := 1; c := 2; if (((a>=b) and (a<=c)) or ((a<=b) and (a>=c))) then writeln ('Mediana: ', a) else if (((b>=a) and (b<=c)) or ((b<=a) and (b>=c))) then writeln ('Mediana: ', b) else writeln ('Mediana: ', c); readln(); end.
- Log in to post comments
- 734 reads