profile
Опубликовано 5 лет назад по предмету Информатика от FillStrange

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

  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.
Самые новые вопросы