1. Вычислить сумму длин окружностей. Радиус первой равняется 2 м, акаждой следующей увеличивается на 1 до тех пор, пока длина очереднойокружности не превысит 80. (Repit или While)

Обычно предполагается, что нам известны какие-либо начальные данные. Тогда для простоты, буду считать что нам известно основание и высота к этому основанию. В таком случае

S = основание * высоту / 2

Что нужно сделать?

1) Запросить у пользователя ввод длины основания

2) Запросить у пользователя ввод длины высоты

3) Вычислить площадь

4) Вывести площадь на экран

Определимся с данными. У нас будет переменная S, основания и высоты. Все будут real, ведь пользователь может ввести и не целое число.

program ploshad;

var S, osnovanie, visota:real;

begin

   writeln('Вычисление площадь треугольника по основанию и высоте');

   writeln('Введите длину основания ');

   read(osnovanie);

   writeln('Введите длину высоты ');

   read(visota);

   S:=osnovanie*visota/2;

   writeln('Площадь треугольника = ',S);

end.

Добрый день! К сожалению я не работаю с C++, но если это то вот эта задача в Pascal
VAR a,b,c,d:REAL;
PROCEDURE Print_S(x,y,z:REAL);
 VAR  p,S:REAL;
 begin  If ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then 
 begin   
p:=x+y+z;
S:=SQRT(p*(p-x)*(p-y)*(p-z));
WriteLn('S= ',S);
end
 else
Writeln('Треугольник не существует!');
end;
BEGIN Write('a= ');
ReadLn(a);
 Write('b= ');
 ReadLn(b);
 Write('c= ');
 ReadLn(c);
 Write('d= ');
 ReadLn(d);
 WriteLn;
 WriteLn('Стороны ',a,'; ',b,'; ',c);
 Print_S(a,b,c);
 WriteLn;
 WriteLn('Стороны ',a,'; ',b,'; ',d);
 Print_S(a,b,d);
 WriteLn;
 WriteLn('Стороны ',a,'; ',c,'; ',d); 
Print_S(a,c,d);
 WriteLn;
 WriteLn('Стороны ',b,'; ',c,'; ',d);
 Print_S(b,c,d);
END.