Сначала решим данное уравнение
, n∈Z
, n∈Z
_________________________________________________
Составим программу для решения данного уравнения
___________
Program n_1;
uses math;
var n:integer; x:real;
begin
for n:=-5 to 5 do writeln((power(-1, n)*arcsin(1/7)/2+PI*n/2)*180/PI:0:20);
end.
_________________________________________________
Значения грдусной меры углов выводятся с точностью до 20 знаков после запятой
1. 1024*8=8192 (мбайт) - новая флешка
Ответ: да, можно.
хе.. остальное не охота)
Бит - наименьшая единица измерения информации
1байт = 8 бит
1Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
и т.д, Гигабайт, Терабайт, Йотабайт
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>
{PascalABC}
Program Alexs5655;
var
x1,x2,x,sum: real;
i,n:integer;
begin
var s:='**** -=Alphaeus=- ****'; var k:=0;
for k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln; write('Введите N = '); readln(n);
x1:=2; x2:=1; sum:=x1+x2; i:=3;
case n of
1: sum:=x1;
2: sum:=x1+x2;
else
while i<=n do
begin
x:=0.8*x2+0.15*x1;
sum:=sum+x;
x1:=x2; x2:=x;
inc(i);
end;
end;
{Вывод}
writeln('Сумма последовательности равна ',sum);
end.
(В блок-схеме, видимо, ошибка: при N=1 сумма должна вычисляться по формуле S:=x1, а не S:=x2)