Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
Будешь моей девушкой помагу
Для хранения информации наверное
Общий объем памяти I = K * i
(K - кол-во пикселей, i - объем памяти на 1 пиксель/цвет или глубина цвета)
По формуле или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета бит
Объем памяти K = 2048 * 1024 пикселей * 8 бит = 16777216 бит
16777216.0 бит = 2097152.0 байт = 2048.0 Кбайт = 2.0 Мбайт = 0.001953125 Гбайт
Кол-во изображений на флешке 4 / 0.001953125 = 2048 шт