1. Типовой "школьный" вариант // 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.
Результат выполнения программы: 22 33 444
2."Современный" вариант // 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.
// 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.
Результат выполнения программы:
22
33
444
2."Современный" вариант
// 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.
Результат выполнения программы:
22
33
444