Program gt; var a:string; l,i:longint; begin readln(a); l:=length(a); for i:=1 to l do begin write(a[i],' '); end; end.
17 votes Thanks 21
SkyBy
Var s,t: string; i: integer; begin write ('Введите строку: '); read (s); t:=''; for i:=1 to length(s) do t:=t+s[i]+' '; writeln ('Результат: ',t); end.
Answers & Comments
Verified answer
Program gt;var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],' ');
end;
end.
i: integer;
begin
write ('Введите строку: '); read (s);
t:='';
for i:=1 to length(s) do
t:=t+s[i]+' ';
writeln ('Результат: ',t);
end.