Windows Form С#

Файл с анкетными данными нескольких человек

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.

Блок-схемы в приложении:

Первый раз мы вводим нечётные элементы (1, 3, 5, 7, ..):

const  N = 10;  { число элементов массива }var  a: array[1..N] of integer;  i: integer; begin  for i := 1 to N do    if (i mod 2 <> 0) then    begin      Write('a', i, ' = ');      Read(a[i]);    end;end.

Второй раз - чётные:

const  N = 10; { число элементов массива } var  a: array[1..N] of integer;  i: integer; begin  for i := 1 to N do    if (i mod 2 = 0) then    begin      Write('a', i, ' = ');      Read(a[i]);    end;end.

Вся разница состоит в условии при вычислении остатка при целочисленном делении (mod). Если при делении на 2 число равно нулю, то оно чётное, иначе нечётное.