Var a:integer;
d:string;
f:char;
begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
<span>end.</span>
39•27•35=36855(байт) - в этом тексте. в 1 килобаите=1024 баит. 36855÷1024=36(килобаит)-в тексте.
1. Переводим в двоичную систему
2. Оставшиеся 7 цифр это порядок числа
3. Переводим в десятичную