Предмет: Информатика,
автор: rabotnik0vorobev
1 + 1/24 + 1/34 +…+ 1/n4
=0.000001 Ответ: 1.08232
Напишите программу в паскале
Ответы
Автор ответа:
0
var
e, a, s: real;
i: integer;
begin
write('Введите точность Е ');
readln(e);
a := 0;
s := a;
i := 0;
repeat
i := i + 1;
a := 1 / sqr(sqr(i));
s := s + a;
until abs(a) < e;
writeln(s);
end.
e, a, s: real;
i: integer;
begin
write('Введите точность Е ');
readln(e);
a := 0;
s := a;
i := 0;
repeat
i := i + 1;
a := 1 / sqr(sqr(i));
s := s + a;
until abs(a) < e;
writeln(s);
end.
Интересные вопросы
Предмет: Биология,
автор: tymofiifanta
Предмет: Физика,
автор: valeriyparubets2005
Предмет: Математика,
автор: dmitstary
Предмет: Математика,
автор: 8909521
Предмет: Литература,
автор: в24ор484р474р