составить программу,позволяющую вставить после каждого символа исходной строки пробел и вывести полученную строку на экран
Ответы
Ответ дал:
0
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.
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],' ');
end;
end.
Ответ дал:
0
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.
i: integer;
begin
write ('Введите строку: '); read (s);
t:='';
for i:=1 to length(s) do
t:=t+s[i]+' ';
writeln ('Результат: ',t);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад