Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>
Элементарно, умножь Гб на 1024, получится 2560 Мб. А в одном байте 8 бит, значит делим, 63035,875 байт
Дано:
k =320*240
I = 50 Кбайт = 50*1024*8 бит
Найти: N = ?
Решение:
N = 2 ⁱ ; i = I/k
i = 50*1024*8/(320*240) = 5,(3) ≈ 5
N = 2⁵ = 32
Ответ: 32.
Program arr;
var
a: array[1..15] of integer;
count,count_odd,num,sum,mult: integer;
begin
count := 1;
count_odd := 1;
num := 3;
sum := 0;
mult := 1;
while count <= 15 do
begin
a[count] := num;
count := count + 1;
num := num + 3;
end;
while count_odd <= 15 do
begin
sum := sum + a[count_odd];
mult := mult * a[count_odd];
count_odd := count_odd + 2;
end;
writeln('Массив из 15 элементов: 3, 6, 9, ..., 45');
writeln('Сумма элементов с нечетными индексами: ', sum);
writeln('Произведение элементов с нечетными индексами: ', mult);
end.