Помогите срочно решить задачу В Pascal S=1/2-2/3+3/4-5/6+.... Цикл

Знания

Информатика

1 ответ:

Истинный Баптист [14]4 года назад

0 0

$var \ i,n:integer;\\
s:real;\\
begin\\
 s:=0;\\
 n:=10; \\
 for \ i:=1\ to\ n \ do \\ \ \
 s:=s+power(-1,i \ div \ 2)*(i/(i+1));\\
 writeln(s);\\
 end.\\$
n-необходимая точность, 1000 хватает вполне (для типа реал)

Читайте также

Найти произведение всех ненулевых элементов массива D. Массив D(10). Ограничение D с нижним индексом i не равно 0 VBA

Никитас [21]

Var d:array[1..10] of integer;

s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin

readln(d[i]);

If d[i]<>0
Then S:=S*d[i];

end;
Writeln(S);
end.

0 0

3 года назад

Запишите на языке паскаль следующие условия: 0 x не равно 10 величины x и y -Положительны x>0 X€[O;4] x € (-5;5] x € [o;+ зна

VITA700

X<>10;
(x>0) and (y>0);
x>0;
(x>=0) and (x<=4);
(x>-5) and (x<=5);
x>=0;
x mod 2 = 0;
x mod 2 = 1;
x mod 3 = 0;
(x mod 2 = 0 ) and (x mod 3 =0);
x mod 5 <> 0;

0 0

4 года назад

Подскажите, как подругому можно назвать "хакеров"

Ильгиз Хурамшин

Пират,программист,взломщик,кракер...

0 0

4 года назад

Прочитать ещё 2 ответа

Сократите текст пожалуста Укажите основные элементы интерфейса. Из каких элементов состоит программный интерфейс операционной си

алексей россиянин [21]

На сколько смог сократил, всё что осталось по моему мнению нужно

0 0