Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи на заказ _ Задачи на строки

Автор: I am ... 24.12.2007 23:35

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

Автор: ADSoft 24.12.2007 23:54

Цитата(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 ... 25.12.2007 0:50

Цитата(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