Var
a,b,c,d : integer;
<span>Begin </span>
for a:=1 to 4 do
for b:=a+1 to 4 do
for c:=b+1 to 4 do
<span> for d:=c+1 to 4 do </span>
writeln(a:3,b:3,c:3,d:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
<span> for c:=b+1 to 4 do </span>
writeln(a:3,b:3,c:3);
for a:=1 to 4 do
<span> for b:=a+1 to 4 do </span>
writeln(a:3,b:3);
for a:=1 to 4 do
<span> writeln(a:3); </span>
readln;
<span> End.</span>
Номер 17, ответ 9
А ещё у вас ошибка вроде в 18
В 1 мб=1024 кб
следовательно 270*1024=276480
begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
Рассмотрим минимальное число в 8й СС с четырьмя цифрами:
1000₈ = 00<span>10 0000 0000</span>₂ = 200₁₆.
Первое же число удовлетворяет условию. Переведем его в 10 СС
2 * 16² = 512₁₀
Ответ: 512