var a,b,h,x,s:real; n:integer;
begin
a:=pi/3; b:=pi/2; n:=60;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
repeat
s:=s+(sin(x)+cos(2*x))/(2+cos(x));
x:=x+h;
until x>b-h/4;
s:=s*h;
writeln(x);
end.

Результат:
 1.575159649924877e+00

0 0

4 года назад

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

Помогите расшифровать код цезеря ефз кг сжрсёс л сжлр кг ефзш

ЮНик15

Все за одного и один за всех

0 0

4 года назад

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

Нужно составить программу в paskal ABC: Массив содержит n случайных двузначных чисел. Определить сколько в данном массиве четных

Павел Артеминко

Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
writeln;
end.

Пример:
Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59

0 0

1 год назад

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

один ребенок сказал : "У меня сестер столько же, сколько и братьев, а у моей сестры вдвое меньше сестер, чем братьев". Сколько д

NoelLen

Всего 7 детей: 3 сестры и 4 брата

0 0

4 года назад