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.

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

Answer 2

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

Answer 3

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