01.11.2011, 19:12
|
#1 (permalink) |
|
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal, строки
1)дана строка, состоящая из нескольких слов, слова отделяются друг от друга некоторым количеством пробелов. Преобразовать эту строку таким образом, что бы между словами был ровно один пробел. 2)Дана строка, получить из этой строки, строку перевертыш! Спасибо заранее!!!!!!!!!!! |
|
|
|
01.11.2011, 19:12
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша тема по содержанию очень схожа с данными обсуждениями Строки Строки Строки Строки Строки Строки |
|
01.11.2011, 20:31
|
#2 (permalink) | ||||
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
var
s:string;
i:integer;
begin
writeln('Enter the string:');
readln(s);
while s[1]=' ' do
delete(s,1,1);
i:=1;
Repeat
inc(i);
if (s[i]=' ') and (s[i-1]=' ') then
begin
delete(s,i,1);
dec(i);
end;
Until i=length(s);
writeln(s);
readln
end.
Цитата:
Код:
var
s,s1:string;
i:integer;
begin
writeln('Enter the string:');
readln(s);
s1:=s;
for i:=Length(s) downto 1 do
s1[Length(s)-i+1]:=s[i];
writeln(s1);
readln
end.
Цитата:
|
||||
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
