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

Предыдущий
вопрос Следующий
вопрос

Программа с использованием цикла Repeat:

var
a, b, c, p: integer;
begin
a := 5;
b := 7;
c := 9;
p := a + b + c;

Repeat
WriteLn('Периметр треугольника: ', p);
a := a + 2;
b := b + 1;
c := c + 1;
p := a + b + c;
until p > 100;

WriteLn('Порядковый номер треугольника с периметром больше 100: ', (p - 21) div 4);
end.

Программа с использованием цикла While:

var
a, b, c, p: integer;
begin
a := 5;
b := 7;
c := 9;
p := a + b + c;

while p <= 100 do
begin
WriteLn('Периметр треугольника: ', p);
a := a + 2;
b := b + 1;
c := c + 1;
p := a + b + c;
end;

WriteLn('Порядковый номер треугольника с периметром больше 100: ', (p - 21) div 4);
end.