Дано: fori:=1to54do При последнем выполнении тела цикла i=

54

Объяснение:

i = 1

i = 2

i = 3

...

i = 53

i = 54

Сварщик — рабочий, специалист сварочного производства.

Сварщик — профессия ответственная, почти виртуозная, от качества работы которого зависит многое — долговечность и устойчивость строительных конструкций, работа и срок службы различной техники.

Сварочные работы применяются во многих отраслях промышленности. Сварщики трудятся на стройплощадках, создавая конструкции и системы различных коммуникаций, в промышленности, где применяют свой опыт и навыки в машиностроении, кораблестроении и в других областях.
Сварщик, как профессия, подразделяется на несколько специализаций: сварщик ручной дуговой сварки, газосварщик, оператор автоматических сварочных аппаратов. Рабочие всех этих специальностей занимаются одним делом — соединением металлических конструкций, сложных аппаратов, деталей, узлов методом сплавления металлов. От мастерства сварщиков зависит качество сварочных швов.

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный