В одном байте 8 бит, из чего совершенно очевидно, что 12968 бит = 12968/8 байт = 1621 байт
Var const n=7;
I,sum:integer;
B:array[1..N] of integer;
Begin
Sum:=0;
For I:=1 to N do
Readl B[I];
For I:=1 to N do
Begin
If I mod 2=0 then
sum:=sum+B[i];
End;
Writeln(sum);
End.
Program dom;
uses graphABC;
begin
setwindowwidth(700);
setwindowheight(700);
setfontsize(18);
setfontcolor(clred);
textout(100,100,'äîìèê');
rectangle(200,300,600,600);
setbrushcolor(claqua);
circle(400,225,40);
setbrushcolor(claqua);
fillrect(300,400,500,500);
rectangle(300,400,500,500);
line(400,400,400,500);
line(300,450,500,450);
line(200,300,400,150);
line(400,150,600,300);
end
Насколько я понял, множество - это просто все эти числа, только без повторений.
Заведем массив boolen, где будем отмечать, есть ли данное число во множестве.
var
a : array [1..15, 1..15] of integer;
b : array [1..30] of boolean;
i, j, n, m : integer;
begin
read (n, m);
for i := 1 to 30 do b[i] := false; //Зануление начальных значений
for i := 1 to n do
for j := 1 to m do
a[i, j] := i +j; //Заполнение массива
for i := 1 to n do
for j := 1 to m do
b[a[i, j]] := true; //Формирование множества
for i := 1 to n do
begin
for j := 1 to m do
write (a[i, j], ' ');
writeln;
end;
for i := 2 to 30 do
if b[i] then write (i, ' ');
end.
//Pascal ABC.NET v3.0 сборка 1111
Var
i,s:integer;
begin
s:=0;
for i:=1 to 99 do
if i mod 4=0 then s:=s+i;
write(s);
end.
