Исправить ошибку "неверная вещественная операция (7.pas, строка 9)" уже не знаю как исправить : для натурального n и действительного x подсчитать сумму s=-1/2 + 1/2^2 - 1/2^3 ++(-1)^n / 2^n program summa; uses crt; var n,i: integer; s: real; begin clrscr; writeln
('vvedite n'); readln (n); s: =0; for i: =1 to n do s: =s+exp(ln(-1)*i)/exp(ln(2)*i); writeln ('s=', s); readln end.
Alyyya
3
08.03.2019 00:20
2
Другие вопросы по теме Информатика
2Alinochka2
11.06.2020 11:54
TimurZel
11.06.2020 00:03
nasty1512200229
11.06.2020 00:03
Focussed
11.06.2020 11:38
Liphan
10.06.2020 23:27
Vdbsgshhsgshhd
11.06.2020 23:13
UbisCraft
30.11.2020 12:46
Гриша2148139
30.11.2020 12:38
Nurlan2010
30.11.2020 12:38
Популярные вопросы
- Найти скорость и ускорение в момент t=5с S(t)=2t^4-t^2...
3 - Әр қатардағы жаңа сөзді тауып, сөз тіркесін Құр.балалартүркілерсурет салғанқызықтырғантұрмыста...
3 - 2- нұсқа 1. Мәлім деген сөздің синонимін табыңдар. а) мүмкін ә) ертеден б)...
2 - Клиника собирается приобрести томограф (диагностический прибор)стоимостью...
1 - Поясніть наявність електричного опору в провідника з погляду молекулярної...
1 - Составьте блок-схему алгоритма определения количества чисел больших пяти...
3 - Решите неравенство (13-5*3^х)\(9^х-12*3^х+27)≥0,5 ^х---в степени х...
3 - Отметить кто из учеников правильно определил соответствие оканчаний глаголов...
1 - Ð ÑÑÑÑиÑме за леÑо пÑодали 230 пÑÑÑвок во...
1 - Complete the statements with who , which , that , where , when;or whose ....
2
ошибка в том что натуральный логарифм (-1) не существует
program summa;
uses crt;
var n,i:integer; s:real;
p1,p2:integer;
begin clrscr;
writeln ('vvedite n');
readln (n);
s:=0;
p1:=-1;
p2:=2;
for i:=1 to n do
begin
s:=s+p1/p2;
p1:=-p1;
p2:=p2*2;
end;
writeln ('s=', s);
readln;
end.