<u><em>1. Типовой "школьный" вариант</em></u>
// PascalABC.NET 3.0, сборка 1076
var
s,a1,a2,a3:string;
p:integer;
begin
s:='22 33 444';
p:=Pos(' ',s);
a1:=Copy(s,1,p-1);
Delete(s,1,p);
p:=Pos(' ',s);
a2:=Copy(s,1,p-1);
Delete(s,1,p);
a3:=s;
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
<em><u>2."Современный" вариант</u></em>
// PascalABC.NET 3.0, сборка 1076
begin
var s:='22 33 444';
var m:=s.ToWords;
var a1:=m[0];
var a2:=m[1];
var a3:=m[2];
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
Текстовые редакторы ! ! !
Если кодировка - 8 бит и на один символ выделяется 1 байт, то дальше простые арифметические операции:
54*42*12 = 27 216 байт ≈ 26.57 Kбайт, округляем в большую сторону и получаем 27 Кбайт.
/////////////////////////////////////
Данное число можно предоставить в виде 23,5 умножить на 10 в 7 степени.