Дана строка(string) из трех чисел разделенных пробелом нужно их присвоить к а1,а2,а3. Например дана строка 22 33 444 а1=22 а2=33 а3=444
Дана строка(string) из трех чисел разделенных пробелом
нужно их присвоить к а1,а2,а3.
Например дана строка 22 33 444
а1=22
а2=33
а3=444
Гость
Ответ(ы) на вопрос:
Гость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.
Результат выполнения программы:
22
33
444
Не нашли ответ?
Похожие вопросы