Question

Не понимаю как решить 2 задание и нужно составить по нему блок-схему.

Answer 1

Блок схему прикрепил

var m,t,k : integer;
sum : real;
begin
  sum:=0;
  write('Введите число m: ');
  readln(m);
  write('Введите число k: ');
  readln(k);
  for t := m to k do
  begin
    sum:=(sum+((t-1)/(t*t-2)));
  end;
  write('Ответ: ',sum:2:4);
end.