Ответ:
Var a :string;
i, n :integer
begin
read(a);
n=length(a);
for i:=1 to n do
writeln(a[i]);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Var a :string;
i, n :integer
begin
read(a);
n=length(a);
for i:=1 to n do
writeln(a[i]);
end.