Похожие вопросы
- в чем идея произведения дон кихота?сервантесЭто мировой шедевр, где впервые создан образ наивного идеалиста, рыцаря-романтика, полагающего, что жизнь можно сделать гармоничной и правильной. Это добрая, гениальная и печальная, всеобъемлющая пародия - и на тех, кто верит в идеал, и на тех, кто отрицает его.
- Сколько крючков максимум можно цеплать на донку по закону? Вроде бы 2 было.
З.Ы. но чем больше - тем больше путаются, а не больше рыбы попадается..) - Сейчас можно ловить рыбу? есть запрет на ловлю спиннингом и с лодки, а на донку и поплавок?можно ловить....лицензию тольк за 3 рубля купить в рыболовном магазине ( типа билет рыболовный ) и на донку и поплавок - вперед
- что у вас на душе? Вот коротко ,в 2 - 3 словах...так в 2 -3 или 3-4?
лес, бабочки, птички
сойдет? - Если Рыжая сделала короткую прическу и окрасилась в белый цвет, то как теперь переименовать её в телефонной книге?
1/Оставь то же имя.
2/была *рыжая ***ка* ? Сделай - "***ка крашеная в белый, подстриженная"
3/Ира крашеная.
4/Ира со стрижкой
5/Ира бывшая рыжая - Трудно ли Вам сказать простое короткое слово "Прости"?Раньше очень было тяжело извиниться, не хотелось, а сейчас намного легче. Тем более приятно после извинений на душе становиться.)))
- Можешь коротким предложением ( 5-7 слов ) привлечь к себе внимание ?У МЕНЯ ДАЧА НА ЯМАЙКЕ ,КТО ХОЧЕТ СО МНОЙ!?
- Что означает слово "парадокс"? коротко и ясно ( без wiki энциклопедии)выходящее за рамки нормы,не укладывающееся в общепринятые понятия,абсурд.)
- Разговариваю с девушкой, она практически не разговаривает, то эмоции то короткие слова...?зачем ей тебе врать? скорей всего на самом деле очень зажатая
- Как написать программу, которая находит самое короткое слово в строке? (Pascal)uses crt;
const rz=[' ','.',',','?','!'];
var s,s1,s2,s3:string;
sk,sd:string;
k,d,i,ik,id,j,p:byte;
begin
clrscr;
writeln('Введите строку из слов, отделенных разделителями:');
readln(s);
i:=1;
d:=0;id:=1;{длина длинного слова и его начало в строке}
k:=255;ik:=1;{длина корткого слова и его начало в строке}
while i<=length(s) do
if not(s in rz) then
begin
s1:='';{будем составлять слово}
j:=i;
p:=0;
while not(s[j] in rz)and(j<=length(s)) do
begin
s1:=s1+s[j];
j:=j+1;
p:=p+1;
end;
if length(s1)<k then{если меньше короткого}
begin
sk:=s1;{это короткое}
k:=length(s1);{его длина}
ik:=i;{начало в строке}
end;
if length(s1)>d then{то же с длинным}
begin
sd:=s1;
d:=length(s1);
id:=i;
end;
i:=i+p;
end
else i:=i+1;
writeln('Самое короткое слово ',sk);
writeln('Самое длинное слово ',sd);
if ik<id then{если короткое раньше}
begin
insert(sk,s,id);{вставляем короткое перед длинным}
delete(s,id+k,d);{удаляем длинное}
insert(sd,s,ik);{вставляем длинное на старое место короткого}
delete(s,ik+d,k);{удаляем короткое}
end
else{если длинное раньше, то все наоборот}
begin
insert(sd,s,ik);
delete(s,ik+d,k);
insert(sk,s,id);
delete(s,id+k,d);
end;
write(s);
readln
end.