Program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
Const MY_ARRAY: array [0 .. 10] of Integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
Var Accumulator, i: Integer;
begin
Accumulator := 0;
for i := Low(MY_ARRAY) to High(MY_ARRAY) do
if i mod 3 = 0 then
Accumulator := Accumulator + MY_ARRAY[i] * MY_ARRAY[i];
Writeln('Сумма = ', Accumulator);
Readln;
end.
var
a,b,c:integer;
M:array [1..10] of integer;
begin
b:=0;
M[1]:=1;
for a:= 1 to 10 do M[a]:=a+1;
for a:= 1 to 10 do
begin
if (M[a] mod 3=0)then b:=b+1;
if (M[a] mod 5=0)then c:=c+1;
end;
writeln ('На 3 делится ',b,' чисел(a)');
writeln ('На 5 делится ',c,' чисел(a)');
end.
Написал и проверил в паскале :)
Хорошего дня.
64
1000000 (в 2)
2101 (в 3)
224 (в 5 )
100 (в 8 )
вот я на фотке написал как сделал вроде понятно
Точек всего 5000*200=100000
1) Для 24-битного TrueColor каждая точка занимает 24/8=3 байта, в общем 3*100000=300000
2) Для 32-битного TrueColor каждая точка занимает 32/8=4 байта, в общем 4*100000=400000 байт