1121 - нет, сумма двух цифр в восьмеричной системе не больше 16, поэтому 21 быть не может
73 - нет, полученные суммы записаны не по порядку (либо получившиеся суммы 0 и 73, чего тоже не может быть)
112 - например 50, 51
28 - в восьмеричной системе счисления нет цифры 8
Ну раз значения всего 2, то 2 ^ 5 = 32 последовательности.
Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
5 итераций цикла for, на каждой значение переменной s увеличивается на 7: s = 7 + 7 + 7 + 7 + 7 = 35