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

Знания

Информатика

1 ответ:

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

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 хватает вполне (для типа реал)

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

Устройство для хранения информации

Иринка2003

флешка, диски

..........

0 0

3 года назад

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

Напишите пожалуйста это в паскале

nonavika

Смотреть фотографию

0 0

3 года назад

Шифрование информации и права человека

мещерина

Ответ:

Мы живем в мире, где массовая и целенаправленная слежка, нападения на людей и гражданское общество, притеснения членов уязвимых групп в цифровой среде и широкий спектр различных мнений и их выражение приводят к серьезным последствиям, в том числе к помещению людей под стражу, физическим нападениям и даже убийствам.

0 0

4 года назад

Паскаль.Составить программу состоящую из 2х процедур. 1ая это сумма рандомных чисел от 1 до 80 которые кратны 5. 2ая это сумма н

Sielar

// PascalABC.NET 3.2, сборка 1416 от 26.03.2017
// Внимание! Если программа не работает, обновите версию!

function s1(a:array of integer):=a.Where(x->x mod 5=0).Sum;

function s2(a:array of integer):=a.Where(x->x.IsOdd and (x<0)).Sum;

begin
var a:=ArrRandom(80,-100,100); a.Println; Writeln;
Writeln('S1=',s1(a),', S2=',s2(a))
end.

Пример
81 85 -59 97 98 65 -59 -46 -69 -70 -45 -85 -5 -88 30 -30 -60 33 52 -59 79 70 -40 -51 -5 97 78 11 65 -88 -45 78 -90 90 94 0 6 4 -8 -40 49 19 58 -35 43 9 9 24 -59 73 77 31 -59 81 38 -89 24 92 1 -99 87 31 -10 -82 75 -23 -96 5 -81 -71 65 36 -60 -8 -7 -41 -89 95 7 87

S1=25, S2=-1135

0 0

3 года назад

Ответьте на вопросы.1.Основная форма указателя мыши(7 букв)2.Перечень значений, из которых следует выбрать одно нужное(6 букв)3.

сергей1954рсп [15]

1.)Стрелка
2.)Список
3.)Отмена
Как то так))

0 0

4 года назад