А < 7 значит проходим по алгоритму. мы к а:=а+1 (2+1); и b:=b+а (0+3 (3 потому что мы к а прибавили 1)). а < 7 значит проходим по алгоритму. мы к а:=а+1 (3+1); и b:=b+а (3+4). а < 7 значит проходим по алгоритму. мы к а:=а+1 (4+1); и b:=b+а (7+5). а < 7 значит проходим по алгоритму. мы к а:=а+1 (5+1); и b:=b+а (12+6). а < 7 значит проходим по алгоритму. мы к а:=а+1 (6+1); и b:=b+а (18+7). а уже не меньше 7 оно равно 7 значит мы вышли из цикла а=7 и b=25
1) 34CE16 это шестнадцатиричная система счисления. Если перевести её в двоичную получится число 1101001100111000010110
Остаётся только посчитать нули и единицы
2) если перевести число 5768 в двоичную систему, то получится число 1011010001000
Считайте единицы и нули.
Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
6e будет первоначальной цифрой потом идёт:11 1017121213 и всё всем помогаю чао
Var
n, i: Integer;
s: Real;
begin
Write('Сколько слагаемых? ');
readln(n);
for i := 1 to n do
s := s + 1 / (i * (i + 1) * (i + 2));
WriteLn('Сумма ряда = ', s);
end.