Нужно написать программы для Pascal

[полли]

Нужно написать программы для Pascal

напиши пожалуйста эти 3 программы
1. Треугольник задается длинами своих сторон. Определите тип треугольника. Указание: не забудьте убедиться в существовании такой фигуры.
2. Вводится число, представленное в двоичной системе счисления. Если представление числа правильное, выведите инверсный и дополнительный коды этого числа.
3. Рассчитайте и постройте таблицу квадратов для последовательности чисел 1, 16, 31, 46, ..., 436 в двух парах колонок

 

[Vladimir_S]

напиши пожалуйста эти 3 программы
1. Треугольник задается длинами своих сторон. Определите тип треугольника. Указание: не забудьте убедиться в существовании такой фигуры.

VAR
 a,b,c,d:REAL;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 Write('c= ');
 ReadLn(c);
 If a<b then
  begin
   d:=a;
   a:=b;
   b:=d;
  end;
 If a<c then
  begin
   d:=a;
   a:=c;
   c:=d;
  end;
 If a>(b+c) then
  WriteLn('The triangular does not exist!')
 else
  begin
   If (b*b+c*c)>a*a then
    WriteLn('The triangular is acute-angled one') else
   If (b*b+c*c)<a*a then
    WriteLn('The triangular is obtuse-angled one') else
   WriteLn('The triangular is right-angled one');
  end;
 ReadLn;
END.

2. Вводится число, представленное в двоичной системе счисления. Если представление числа правильное, выведите инверсный и дополнительный коды этого числа.

Мало данных. Для однозначного решения задачи нужно знать длину слова, т.е. является ли вводимое число одно-, двух- или четырехбайтовым.

3. Рассчитайте и постройте таблицу квадратов для последовательности чисел 1, 16, 31, 46, ..., 436 в двух парах колонок

VAR
 a,b:LongInt;
 i:Integer;
BEGIN
 For i:=1 to 15 do
  begin
   a:=1+(i-1)*15;
   b:=1+(i+14)*15;
   WriteLn(a:3,a*a:8,b:16,b*b:8);
  end;
 ReadLn;
END.