Дана строка(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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
