прикладная математика

var
i,n,pr:integer;
begin
pr:=1;
read(n);
for i:=1 to 2*n+1 do
if i mod 2 = 1 then pr:=pr*i;
writeln(pr);
end.

var
i,a,n,amount:integer;
begin
read(n);
amount:=0;
for i:=1 to n do begin
read(a);
if a mod 2 = 1 then amount:=amount+1;end;
writeln(amount);
end.

const
n = 10;
var
i,min,count:integer;
a:array[1..10]of integer;
begin
count:=0;
min:=max(min);
for i:=1 to n do begin
read(a[i]);
if a < min then min:=a;end;
for i:=1 to n do
if a[/i] = min then count:=count+1;
writeln(count);
end.

program Model_At;
uses Ctr,Graph;
const Ra=100;{радиус атома}
Rc=10;{радиус ядра}
Re=4;{радиус электрона}
k=0.5;{коэффициент сжатия орбит электронов}
Dr=30;{параметр изменения координат электронов}
Step 1=0.2;{шаг изменения положения электрона}
Step=100;{время задержка скорость движения электрона}
var cx,сy,y,y1,y2,x,x1,x2,x3,y3:integer;
I,I1,I2,I3:real; d,m:integer;
begin
clrscr;
d:=detect;
initgraph(d,m,'путь к драйверу');
SetTextStyle(0,0,2);
OutTextXY(200,30,'модель атома');
cx:=GetMaxX div 2;
PieSLice(cx,cy,0,360,Rs);{нарисовать ядро атома}
SetColor(Red);
SetLineStyle(0,0,3);
Line(cx-7,cy,cx+7,cy);
Line(cx,cy-5,cx,cy+5);
SetLineStyle(0,0,1);
SetFillStyle(1,1);
i:Pi/4;{задать начальное положение 4 электронов}
i:=-Pi/4;
i1:=-Pi/4;
i2:=-Pi/2;
i3:=-Pi/2;
SetTextStyle9(0,0,1);
SetColor(jellow);
OutTextXT(180,420;'Для отмены нажмите любую клавишу');
While not KeyPressed do {повторять пока не нажата любая клавиша}
begin {определить координаты электронов}
x:=Round((Ra*cos(i))+cx;Y:Round(k+Ra*sin(i))+cy;
x1:=Round((Ra+Dr)*cos(i1))+cx; y1:Round(k*(Ra+Dr)*sin(i1))+cy;
x2:=Round((Ra+Dr)*cos(i2))+cx; y2:Round(k*(Ra+Dr)*sin(i2))+cy;
x3:=Round((Ra+Dr)*cos(i3)*2.3)+cx;y3:=Raund(k*(Ra-Dr)*sin(i3)*2.3)+cy;{установить синий цвет и нарисовать электроны}
SetColor(1);
Circle(x,y,Re);
PutPixel(x,y,2);
Circle(x1,y1,Re);
PutPixel(x1,y1,2);
Circle(x2,y2,Re);
PutPixel(x2,y2,2);
Circle(x3,y3,Re);
PutPixel(x3,y3,2);
Delay(Setep);{Нарисовать электроны цветом фона}
SetColor(0);
Circle(x,y,Re);
PutPixel(x,y,2);
Circle(x1,y1,Re);
PutPixel(x1,y1,2);
Circle(x2,y2,Re);
PutPixel(x2,y2,2);
Circle(x3,y3,Re);
PutPixel(x3,y3,2);{задать изменение положения электронов}
i:=i+Step1;
i1:=i1-Step1; i2:=i2+Step1; i3:=i3+Step1;
end;{конец цикла}
СloseGraph;
end