Администраторы группы

  • Аватар

Олимпиада по информатике. Готовимся побеждать!

Открытая группа активность: 1 дн., 8 ч. назад

Группа для тех, кто намеревается побеждать на районных и региональных олимпиадах по информатике.
Здесь можно будет найти олимпиадные задания, задачи повышенной сложности, обсудить оптимальные алгоритмы решений
Памятка для участников олимпиады

Сайт Информатикс – регистрирууемся, решаем, продвигаемся в рейтинге

Программирование на Pascal. (записей: 4)

← Форум группы   Все форумы
  • Аватар Alcaine - 1 мес. назад:

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

  • Аватар CHEWBACCA - 1 мес. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=319#1
    По данному действительному числу a и натуральному n вычислите сумму 1+a+a^2+…+a^n, не используя формулу суммы геометрической прогрессии. Время работы программы должно быть пропорционально n.

    var n,i,a,c,b:longint;
    begin
    readln(a,n);
    b:=1;
    c:=0;
     for i:=1 to n do
     begin
      b:=b*a;
      c:=c+b;
     end;
      writeln(c+1);
    end.
    
  • Аватар CHEWBACCA - 4 нед., 1 дн. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=321#1
    По данному числу n вычислите сумму 4(1-1/3+1/5-1/7+…+(-1)^n/(2n+1)).

    var a,b,c:real;
    i,n: longint;
    begin
     readln(n);
     c:=-1;
     b:=0;
     for i:=1 to n do
     begin
      a:=(c*-1)/(2*i+1);
      b:=b+a;
      c:=-c;
     end;
      b:=1-b;
      writeln(b*4);
    end.
    
  • Аватар CHEWBACCA - 4 нед., 1 дн. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=320#1
    По данному числу n вычислите сумму 1+1/2^2+1/3^2+…+1/n^2.

    var a,b:real;
    i,n: integer;
    begin
     readln(n);
     a:=1;
     b:=4;
     for i:=1 to n do
      a:=(a*-1)/(2*n+1);
      writeln(a*b);
    end.
    

    Тут явно еще требуется доработка….