Мобильный компьютер — переносное/носимое вычислительное устройство.
Ноутбук (лаптоп)
Субноутбук — уменьшенная версия ноутбука, в настоящий момент активно замещаются на рынке нетбуками и ультрабуками.
Нетбук — субноутбук с относительно невысокой производительностью, диагональю экрана 7—12 дюймов, низким энергопотреблением, относительно невысокой стоимостью и небольшим весом, предназначенный в основном для выхода в Интернет и работы с офисными приложениями. Термин предложен компанией Intel (и применяются в основном его процессоры и ОС Windows), однако впервые применён в 1999 году компанией Psion. См. также Хромбук.
Смартбук — субноутбук с диагональю экрана 5—10 дюймов, построенный на аппаратной платформе того же класса, которая используется для смартфонов и интернет-планшетов. Аналог нетбука, однако используются, как правило, процессоры архитектуры ARM, MIPS или иные, не совместимые с Intel-архитектурой, и специализированная операционная система. В настоящий момент ушли с рынка.
Ультрабук — ультратонкий и лёгкий субноутбук, обладающий ещё меньшими габаритами и весом (с 2011 года).
Handheld PC (H/PC) — клавиатурный карманный компьютер, выполненный в раскладном или раздвижном форм-факторе, выглядит как уменьшенный ноутбук, его можно положить на одну ладонь и печатать на клавиатуре другой рукой.
Ультрамобильный ПК (UMPC) — спецификация на мобильные компьютеры небольшого размера (с 2006).
Планшетный компьютер (tablet computer или же электронный планшет) — собирательное понятие, включающее различные типы компьютеров (устройств) с сенсорным экраном.
var i,j,n,k,k1,k2,k3: integer; bb: boolean;
a: array of integer;
begin
write('N = ');
readln(n);
if ((n mod 3 = 0) and (n<>0)) then begin
write('K1 = ');
readln(k1);
write('K2 = ');
readln(k2);
write('K3 = ');
readln(k3);
setlength(a,n);
for i:=0 to n-1 do begin
write('Заполним номер ',i+1,' -> ');
readln(a[i]);
end;
i:=0;
while (i<n) do
begin
a[i]:=k1-a[i];
a[i+1]:=k2-a[i+1];
a[i+2]:=k3-a[i+2];
inc(i,3);
end;
write('K = ');
readln(k);
for i:=0 to n-2 do
if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;
if (bb=false) then writeln(0);
end else writeln('Введите число кратное 3 и неравное 0');
readln;
end.
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.