// 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.
var
A, B, c, x, p1, p2 :double;
const
PI = 3.1415926;
begin
readln(A, B, c, x);
if exp(c+power(x,0.2)) <> 0 then
p2 := 32.7*power(A,3)*x/exp(c+power(x,0.2))
else begin
writeln('Деление на 0 во второй дроби');
halt;
end;
if (abs(0.65 * A * PI * Power(x,3))<> 2*PI) then
p1 := tan(0.65 * A * PI * Power(x,3))
else begin
writeln('Аргумент для тангенса неверен');
halt;
end;
if (p1 < 0) then begin
writeln('Отрицательное подкоренное выражение');
halt;
end
else
if(p1 = 0) then begin
writeln('Деление на 0 в первой дроби');
halt;
end;
writeln('Результат: ', (B * cos(x)*cos(x))/sqrt(p1)+p2);
end.
Объяснение: