Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
Begin
Write((12*K-21)/3,' ');
if (12*K-21)/3 > 0 then
Begin
S:=S+(12*K-21)/3;
n:=n+1
End;
End;
WriteLn;
Write('Sr = ',S/n)
End.
1. Любой вид. К примеру - методом пузырьков.
2. Сортировка требуется для упорядочивания элементов.
3. Те, которые допускают сравнение друг с другом.
<span>220000 * (1,01) * (1, 01) * (1,01) </span><span><span>$</span> = </span><span>
226666,2
</span>$ - это ответ
1 мб - 1024 кб
1кб - 1024 байт
16 мб 1024*16=16384 кб
16384*1024=16777216 байт
1 символ весит 1 байт 16777216/1=16777216 символов
program xxx;
var i, x, s : integer;
begin
write('введите число Х=');
readln(x);
s:=0
i:=1
while i <=x do
begin
s:=s+i;
i:=i+2
end;
write('сумма нечетных чисел ='; s);
readln
end.