Program n1;
//Название программы
var i,n,sum: integer;
//Объявление переменных
begin
//Начало
readln(n);
//Ввод n (количество чисел) и и переход на следущую строку
sum:=0;
//Присваивание переменной sum знаяения 0 (изначально сумма равна 0)
for i:=1 to n do sum:=sum+2*i;
//В цикле от 1 до n к переменной
//sum прибавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;
writeln(sum);
//Ввод sum (cумма первых n целых положительных четных чисел)
//и и переход на следущую строку
end.
//Конец
Program swap;
const
N = 10;
var
a: array [1..N] of integer;
i, temp: integer;
begin
randomize;
writeln('исходный массив: ');
for i := 1 to N do
begin
a[i] := Random(10);
write(a[i], ' ');
end;
writeln;
i := 1;
while i <= 9 do
begin
temp := a[i];
a[i] := a[i+1];
a[i+1] := temp;
i := i + 2;
end;
writeln('полученный массив: ');
for i := 1 to N do
write(a[i], ' ');
end.
решением неравенста является множество {4 5 6 7}
его мощность равна 4
Переводишь числа из двоичной в десятичную.
101011100=2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*1 + 2^3*1 + 2^2*1 + 2^1*0 + 2^0*0 = 256 + 0 + 64 + 0 + 16 + 8 + 4 + 0 + 0 = 348, 101110=2^5*1 + 2^4*0 + 2^3*1 + 2^2*1 + 2^1*1 + 2^0*0= 32 + 0 + 8 + 4 + 2 + 0 =46,
Складываешь 348+46= 394 и переводишь обратно в двоичную систему счисления. 394 = 110001010<span />
