// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
Возможный вариант в C++ #include <iostream> int main() { using namespace std; int N; cout << "Enter N: "; cin >> N; int num; int max = 1; int i; for (i = 0; i < N; ++i) { cout << "Enter #" << i + 1 << " number: "; cin >> num; if ((num - 9) % 10 != 0 && num % 3 == 0) { max = num; break; } } for (int j = i + 1; j < N; ++j) { cout << "Enter #" << j + 1 << " number: "; cin >> num; if ((num - 9) % 10 != 0 && num % 3 == 0) if (num > max) max = num; } if (max != 1) cout << "Max number div by 3 and don't end 9: " << max << endl; else cout << "No numbers div by 3 and don't end 9" << endl; return 0; }
х=14
z=1
i=0
Цикл
выполнять пока i<4
проход 1 (i=0)
z=(z+x/2)/2=(1+7)/2=4
проход 2 (i=1)
z=(z+x/2)/2=(4+7)/2=5.5
проход 3 (i=2)
z=(z+x/2)/2=(5.5+7)/2=6.25
проход 4 (i=3)
z=(z+x/2)/2=(6.25+7)/2=6.625
следующий проход цикла
и i=4
значит выходим из цикла, т. к. i=4 <> i<4
ответ z=6.625===6.63===6.6
Объяснение: