Автор: Anton

Anton — Mon, 11 Jan 2016 04:59:22 +0000

Поправил
Было:

 for i:=1 to 3 do
  begin
   Write('a :');
   Readln(a);
   Write('h :');
   Readln(h);
   Writeln(TriangleP(a,h));
  end;

for i:=1 to 3 do

begin

Write('a :');

Readln(a);

Write('h :');

Readln(h);

Writeln(TriangleP(a,h));

end;

Стало:

 for i:=1 to 3 do
  begin
   Write('a :');
   Readln(a);
   Write('h :');
   Readln(h);
   Writeln(TriangleP(a,h));
  end;

for i:=1 to 3 do

begin

Write('a :');

Readln(a);

Write('h :');

Readln(h);

Writeln(TriangleP(a,h));

end;

Автор: olegst1975

olegst1975 — Sun, 10 Jan 2016 22:05:28 +0000

..найти периметры трех треугольников.. — добавить цикл