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

0 голосов
32 просмотров

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


image

Информатика (52 баллов) | 32 просмотров
Дан 1 ответ
0 голосов

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

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.


image
image
(250 баллов)