<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
Writeln(SeqGen(n,i->Power(x,2*i+1)/(2*i+1)).Sum)
end.
<u>Пример</u>
n= 9
x= 2.5
418654.338245567
Для того что бы разместить информацию на дискейте (1,44) объемом (2048) понадобиться;
2048/1,44=1422
С++, Java
Числовые, строковые, струкруты, ссылки, указатели.
Стуктуры данных - деревья, списки, мапирования
Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12
Var a: real;
begin
write('Введите сторону куба = ');
readln(a);
writeln('Объем = ', a * a * a);
writeln('Площадь поверхности = ', 6 * a * a);
end.