Составить 2 программы циклами repeat и while первоначальные размеры треугольника равны 5,7,9 см.получая новые треугольники,стороны увеличиваются на 2,1,1 см.какой по счету треуголь.будет иметь периметр превышающий величину 100?

Через While:
var a,b,c,p,i:integer;begini:=0;a:=5;b:=7;c:=9;p:=a+b+c;while (p<=100) do   begin   i:=i+1;   a:=a+2;   b:=b+1;   c:=c+1;   p:=a+b+c;   end;writeln('Это будет ',i,'-й по счету треугольник');end.

Через Repeat:
var a,b,c,p,i:integer;begini:=0;a:=5;b:=7;c:=9;p:=a+b+c;while (p<=100) do   begin   i:=i+1;   a:=a+2;   b:=b+1;   c:=c+1;   p:=a+b+c;   end;writeln('Это будет ',i,'-й по счету треугольник');end.

Var  a, b, c, n: Integer;
begin  a := 5;  b := 7;  c := 9;  n := 1;  repeat    a := a + 2;    b := b + 1;    c := c + 1;    n := n + 1;  until a + b + c >= 100;  WriteLn(n);end.