Составить 2 программы циклами Repeat и While Первоначальные размеры треугольника равны...

Question

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

Answer 1

Через 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.<br>
Через 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.

Comments

А почему repeat делается через While?

---

Т.е они абсолютно идентичны

Answer 2

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.