Составить 2 программы циклами Repeat и While
Первоначальные размеры треугольника равны 5,7,9 см.Получая новые треугольники,стороны увеличиваются на 2,1,1 см.Какой по счету треуголь.будет иметь периметр превышающий величину 100?
Первоначальные размеры треугольника равны 5,7,9 см.Получая новые треугольники,стороны увеличиваются на 2,1,1 см.Какой по счету треуголь.будет иметь периметр превышающий величину 100?
More Questions From This User See All
Answers & Comments
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.
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.