Мобильный компьютер — переносное/носимое вычислительное устройство.
Ноутбук (лаптоп)
Субноутбук — уменьшенная версия ноутбука, в настоящий момент активно замещаются на рынке нетбуками и ультрабуками.
Нетбук — субноутбук с относительно невысокой производительностью, диагональю экрана 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.