Алгоритм :
1)Подсчитать сумму чисел.
2)Подсчитать количество чисел
3)Разделить сумму чисел на их количество
Вот если надо прога
var i,N:integer;
srzn,sum:real;
begin
sum:=0;
N:=0;
for i:= 0 to 10 do begin
sum:=sum+i;
N:=N+1;
srzn:=sum/N;
end;
write(srzn:0:5);
end.
Program Test;
const Max = 10; //Последний член последовательности
var i, M, proizv: integer; Bol: boolean; Arr: array[1..Max] of integer;
Begin
proizv := 1;
Bol := false;
Write('Введите М: ');
Readln(M);
Writeln();
for i:= 1 to Max do
begin
Arr[i] := i;
if (Arr[i] > M) then
begin
proizv := proizv * Arr[i];
Bol := true;
end;
end;
if (Bol = false) then
Writeln('Элементов больше числа М нет!')
else
Writeln('Произведение = ', proizv);
End.
Можно создать два списка : вопросы и ответы и с помощью цикла обходить
Ответ: 428
нашел с помощь программы
var
x, L, M, i:integer;
begin
for i := 4096 downto 1 do
begin
L := 0;
M := 1;
x := i;
while x > 0 do
begin
Inc(L);
M := M *(x mod 8);
x := x div 8;
end;
if (L = 3) and (M = 120) then
begin
WriteLn('x = ', i);
break;
end;
end;
readln;
end.
<span>1.
</span>С, В, А,<span> D</span>
<span>2.
</span>A
<span>3.
</span>A,
D
<span>4.
</span>B
<span>5.
</span>C
<span>6.
</span>A
<span>7.
</span>B