<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.
Ответ:
Некий куб, в который можно зайти и оставить там все воспоминания или присоединить любой гаджет и скинуть информацию.
это титановый куб, вроде кабинки для переговоров. внутри есть розетка для гаджетов и специальное оборудование для человека.
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>
6папок т.к в 1 папке содержится 2-3 бита