1. Глобальная
2. Хакер
3. Терминал
4. Гипертекст
5. Электронная почта
вроде так, может ошибаюсь.
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
48 бит
по 8 бит на каждый символ
Var
a,i,n:integer;
begin
readln(a);
while a>0 do
begin
inc(i);
a:=a div 10;
end;
writeln(i);
<span>end.</span>