Составить алгоритм и программу для вычисления в цикле суммарного результата.

[Марина357]

Составить алгоритм и программу для вычисления в цикле суммарного результата.

Найти суммарную площадь n прямоугольных треугольников, если длина меньшего катета треугольника равна квадратному корню из длины большего, а длины больших катетов равны b, b/2,...b/n

Помогите пожалуйста решить

[Serge_Bliznykov]

можно так (без проверок на корректность исходных данных):

var s, b : real;
  i,n : integer;
begin
  WriteLn('Введите n = ');
  ReadLn(n);
  WriteLn('Введите b = ');
  ReadLn(b);
  s:=0;
  for i:=1  to n do s := s+(sqr(b/i)*(b/i)/2);
  WriteLn('Суммарная площадь = ',s:0:2);
  Readln
end.

[min@y™]

Это вот так, штоль, будет?