1. Треугольник будет существовать если будут выполнятся одновременно три неравенства: x + y > z x + z > y y + z > x
Программа:
var x, y, z: real; begin writeln('Введите стороны треугольника x, y, z: '); read(x, y, z); if (x + y > z) and (x + z > y) and (y + z > x) then writeln('Треугольник существует') else writeln('Треугольник не существует'); end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real; begin writeln('Введите три числа: '); read(x, y, z); writeln('В интервале (1; 3) лежат числа: '); if (x > 1) and (x < 3) then writeln(x); if (y > 1) and (y < 3) then writeln(y); if (z > 1) and (z < 3) then writeln(z); end.
<em><u>Компьютерная сеть</u></em> (англ. <em>Computer NetWork,</em> от <em>net</em> - сеть, и <em>work</em> - работа) - это система обмена информацией между компьютерами. Представляет собой совокупность трех компонент:
Using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks;
namespace СиШарп { class Program { static void Main(string[] args) { Console.Write("a = "); double a = double.Parse(Console.ReadLine()); Console.Write("b = "); double b = double.Parse(Console.ReadLine()); Console.Write("c = "); double c = double.Parse(Console.ReadLine()); if (a > b) a = b; if (a > c) a = c; Console.WriteLine("Min = {0}",a); Console.ReadKey(); } } }