Похожие вопросы
- Меня обогнали сииськи на Импрезе.. =( А вас?А я, на импрезе, обогнала хонду прелюд =)))) гххх
Ладно, ладно... а меня вчера обогнал гольф. но там, судя по лицу, кто-то неадекватный был... =)
скидываемся на танк? поедем за импрезой... по встречке! муа ха ха ха - Вы быстро находите слова в своё оправдание ?)Да, всегда не при делах.
- где можно найти слова к песни,если гугл не находит? Лирики к этой песне (как и ко всем остальным) ещё нет. Потому что альбом ещё не вышел, как я понял =) Потерпи пару недель - будет.
Ну или попроси людей на форуме darklyrics.com подобрать тебе слова =)
Ну значит, лирику ещё никто не запостил =) - Какое слово Вы реально находите смешным?колошматина
- Почему, очень интересный парень, есть о чем поговорить...но когда заводиться какая-то тема, я слов не нахожу?))Поздравляю, ты влюбилась
- Почему мы всегда находим слова, чтобы помочь другим людям, а сами себе помочь не можем?потому,что со стороны решение выглядит простым..а для себя мы его порой не находим так просто
- Как написать программу, которая находит самое короткое слово в строке? (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. - Какие слова в русскрм языке вы находите смешными?кулёк... ну что за слово блин...
- почему люди верующие злее и жоще .,даже не нахожу подходящего слова им., чем не верующие?если имеешь в виду непоколебимость в их понимании чего либо, то по-моему
человек, уверовавший в бога по настоящему, верующий без сомнений, дал религиозной промывке мозгов пройти до конца, воспринимает его существование как факт. даже не смотря на то, что фактом это не являецца по причине того, что существование бога не доказано. а раз человек смог усвоить как истину существование того, чего нет, то чего уж говорить о разных мелочах? у него в голове любая четко сформулированная, подкрепленная более-менее определенными доказательствами, информация, откладывается как непоколебимый факт. они просто не сомневаются. у этого есть как достоинства, так и недостатки, но по мне лучше сомневацца и понимать что ничего толком не понимаешь и делав все новые и новые выводы об одном и томже ;)