Написать то можно,но тебе понадобится android SDK чтоб скомпилировать твой java в dex и создать apk. Если тебе все это делать лень, устанавливай aide и прогай прямо на телефоне.
procedure cube(a,b,c,d,e:real); Var p,q,delta,phi,i:real; y:array[1..3] of real; begin p:=(3*a*c-sqr(b))/(3*sqr(a)); q:=(2*power(b,3)-9*a*b*c+27*sqr(a)*d)/(27*power(a,3)); delta:=power(q/2,2)+power(p/3,3); if delta<0 then begin if q<0 then phi:=arctan(sqrt(-delta)/(-q/2)); if q>0 then phi:=arctan(sqrt(-delta)/(-q/2))+pi; if q=0 then phi:=pi/2; y[1]:=2*sqrt(-p/3)*cos(phi/3); y[2]:=2*sqrt(-p/3)*cos(phi/3+(2*pi)/3); y[3]:=2*sqrt(-p/3)*cos(phi/3+(4*pi)/3); var x:=seq(y[1]-b/(3*a),y[2]-b/(3*a),y[3]-b/(3*a)); write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count); end; if delta>0 then begin var arsom:=range(0,1000).Where(x->(a*power(x,3)+b*x*x+c*x+d)/(x-e)=0); write(arsom.Count); {Мы не виноваты, Паскаль не может в комплексные числа} end; if delta=0 then begin y[1]:=2*power(-q/2,1/3); y[2]:=-power(-q/2,1/3); var x:=seq(y[1]-b/(3*a),y[2]-b/(3*a)); write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count); end; end;
procedure square(a,b,c,e:real); Var d:real; begin d:=sqr(b)-4*a*c; if d<0 then writeln('0'); if d>0 then begin var x:=arr((-b+sqrt(d))/(2*a),(-b-sqrt(d))/(2*a)); write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count); end; if d=0 then begin var x:=arr(-b/(2*a)); write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count); end; end;
procedure common(a,b,e:real); begin var x:=arr(-b/a); write(x.where(x -> x<>e).where(x -> frac(x)=0).where(x -> x>=0).Where(x -> x<=1000).Distinct.Count); end;
procedure awfulvar(e:real); begin if (e>=0) and (e<=1000) then writeln('1000') else writeln('1001'); end;
procedure otherawfulvar(e:real); begin if e<>0 then writeln('1') else writeln('0'); end;
begin read(a,b,c,d,e); if (a<>0) and (b<>0) then cube(a,b,c,d,e); if (a=0) and (b<>0) then square(b,c,d,e); if (a=0) and (b=0) and (c<>0) and (d<>0) then common(c,d,e); if (a=0) and (b=0) and (c=0) and (d=0) then awfulvar(e); if (a=0) and (b=0) and (c<>0) and (d=0) then otherawfulvar(e); if (a=0) and (b=0) and (c=0) and (d<>0) then writeln('0'); end.
Я ответил, но ответ почему-то не сохранился. 1) Минимально в компьютер входят: системный блок, клавиатура и монитор. Мышь, принтер и сканер не входят! Во времена MS-DOS работали без мышей, принтер подключали редко, а сканеров тогда вообще не было.
2) В системный блок входят материнская плата, на ней процессор, память, микросхема BIOS. В слоты вставляются видеокарта и звуковая карта. Хотя в последнее время видео и звук ставят сразу на материнскую плату, но они обычно плохого качества, нормальные нужно ставить в слоты отдельно. На шлейфах подключаются винчестер и CD/DVD дисковод. Иногда Blue-Ray, но это пока редкость. Раньше еще были дисководы для дискет, 5,25 дюймов и 3,5 дюйма, последние еще иногда встречаются. В сервере даже видеокарта и монитор не нужны.
3) Контроллер - это микросхема, плата или даже программа, которая управляет какой-то периферией, например, видео, звуком или сканером.
4) Физически устройства соединяются через слоты, раньше были ISA и VLB, сейчас PCI, PCI-Express, SCSI и другие. А также через шлейфы или просто по проводам.
5) Информация по шине попадает на нужное устройство благодаря шине адреса, в которой заложено, куда эта информация должна прийти.
Если тебе все это делать лень, устанавливай aide и прогай прямо на телефоне.