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

решите задачу по паскаль плизз
смотрите ниже

  1. Ответ
    Ответ дан iwrowo
    program Pr;
    var
      i, n: integer;
      zn: integer;
      sm: real;
    begin
      zn:=1;
    sm:=0;
       Readln(n);
       for i:=0 to n do
       begin
          sm:=sm+1/zn;
           zn:=zn*3;
       end;
       Writeln(sm:0:6)
    end.
Самые новые вопросы