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

СРОЧНО!!!!!!! РЕШЕНИЕ В ПАСКАЛЕ!!! ЗАДАЧА ВО ВЛОЖЕНИЯХ!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!

 

В 1-ой задаче нужно найти сумму данного ряда

  1. Ответ
    Ответ дан Tlalok

    var

      s:real;

      n, i:integer;

    begin

      write('Введите колчиесвто членов последовательности '); readln(n);

      s := 0;

      for i := 1 to n do

        s := s + 1 / (i * i);

      writeln('Сумма членов равна ', s);

    end.

     

     

    //вторая программа

    var

      c, max, i:integer;

    begin

      max := 0;

       for i := 1 to 5 do

       begin

          write('Введите число '); readln(c);

          if c > max then

            max := c;

      end;

      writeln('Максимальным является число', max);

    end.

Самые новые вопросы