Паскаль!! ! Решить задачу через case of или if! Заранее спасибо!
1)Составте программу для вычисления числа дней в месяце по введеному номеру месяца. Считаеться что год может быть высокосным.
2)Составте программу которая по трьом введеным вами числам определит могут ли эти числа быть длиной сторон триугольника, и если да, то какой получется треугольник с даными длиной сторон ( прямоугольный, остороугольный, тупоугольный).

  • 2:
    procedure swap(var n1, n2 : real); var tmp : real; begin tmp := n1; n1 := n2; n2 := tmp; end;
    var a, b, c : real;
    begin
    write('a b c = '); readln(a, b, c);
    if a > b then swap(a,b);
    if b > c then swap(b,c);
    if a > b then swap(a,b);
    if a+b < c then write('не существует') else if a+b-c < 0.001 then writeln('линия') else if a*a+b*b-c*c < 0.001 then writeln('прямоугольный') else if a*a+b*b < c*c then writeln('тупоугольный') else writeln('остроугольный') end.