Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачи на строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
I am ...
в паскале:
Задана строка символов, которая состоит из 3-х слов розделенных пробелом. Получить новую строку, где слова будут розделены 3-мя пробелами.
ADSoft
Цитата(I am ... @ 24.12.2007 19:35) *

в паскале:
Задана строка символов, которая состоит из 3-х слов розделенных пробелом. Получить новую строку, где слова будут розделены 3-мя пробелами.


Program p1;
 uses crt;
 var S,S2 : String;
     i : integer;
begin
S2:='';
 write('inpus string');readln(S);
 for i:=1 to length(S) do
  if S[i]=' ' then S2:=S2+'   ' else S2:=S2+S[i];
 writeln(S2)
end.
I am ...
Цитата(ADSoft @ 24.12.2007 18:54) *

Program p1;
 uses crt;
 var S,S2 : String;
     i : integer;
begin
S2:='';
 write('inpus string');readln(S);
 for i:=1 to length(S) do
  if S[i]=' ' then S2:=S2+'   ' else S2:=S2+S[i];
 writeln(S2)
end.



Огромное спасибо!!!!!! good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.