#include <iostream>
#include <math.h>
using namespace std;
int main(){
double x, y;
cin>>x;
if (x<3) y=log(abs(2-x));
else if (x>=3&&x<5) y=x/(x-2);
else y=sqrt(x-4);
cout<<y;
}
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
Begin
write(ReadSeqInteger(ReadInteger()).Where(x -> x mod 3 = 0).Sum);
end.
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99)).ToArray;
if a.Length=0 then Writeln('NO')
else Writeln(a.Average)
end.