ПаскальСоставить программуТема цикл с постусловием12 номер

Паскаль
Составить программу
Тема цикл с постусловием
12 номер

Задать свой вопрос
1 ответ
Var i: integer;
     s: real;
begin
  s:=0;  i:=1;
  repeat
    s:=s+1/((4*i-1)*(4*i+1));
    i:=i+1;
  until igt;25;
  writeln('значение функции:   ',((1/2)-pi/8):12:8);
  writeln('сумма ряда:  ',s:12:8);
end.
    
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт