cloudy

спасибо, так сделал, еще нда было e:='e' писать а не e:=e =))

это я сделал чтобы вдруг буква Е находится на 2.3.4 позиции, то есть pos он же после первого попавшегося элемента его номер кидает допусти ВВЕРЕ ее ответом 3 бует, хотя буква Е стоит на пятом месте я так пытался ее "обмануть" можете какую нить идейку кинуть?

точняк=((( спасиб, чото прога неправильно робит, где могла ошибка спрятаться...

Помгите плииз завтра сдать нада=((

ой чо я делаю там for юзаю ыЫ спс Lakers =)) Добавлено спустя 14 минут 36 секунд: uses crt; var a:arraay [1..100] of string; l,n,i,t1:byte; t,e:string; begin clrscr; l:=0; e:=e; writeln ('vvedite koli4estvo slov'); readln (n); writeln ('vvedite ',n,' slov'); for i:=1 to b do readln (a); for i:=1 to n do begin if length (a).4 then begin t:=copy (a,5,1); insert (t,a,1); t1:=pos (a,e); if t1:= 1 then l:=l+1; ошибка тута end; end; writeln ('koli4estvo slob na "e" na 5oi pozicii raven: ',l); readkey; end. тута ошибка вылазеет номер сорок нужен булев тип, я прост понять не могу как этот булев действует подскажите как в концовке нада переделать пллиз

вот программа: uses crt; var a:arraay [1..100] of string; l,n,i,t1:byte; t,e:string; begin clrscr; l:=0; e:=e; writeln ('vvedite koli4estvo slov'); readln (n); writeln ('vvedite ',n,' slov'); for i:=1 to b do readln (a); for i:=1 to n do begin if length (a).4 then begin t:=copy (a,5,1); insert (t,a,1); t1:=pos (a,e); for t1:= 1 do l:=l+1; в этом месте выдает ошибку 58: to or downto expected end; end; writeln ('koli4estvo slob na "e" na 5oi pozicii raven: ',l); readkey; end. задание в последовательных ячейках расположено заданное количество слов. определить количество слов, у которых пятый символ буква "e"

главное чтобы они любили друг друга по настоящему!

мм таже ситуация... тоже в драке в нос получил, думал кровь запеклась, вроде нос забитый но сморкаюсь ничо не лезет... чо делать?

иди реплейки смотри на такой скорости=0

-2.25 -1.75

ферст арт это пт + мека потом владик, потом скади/ребра и дальше еще один скади-=)

отписал ему вконтакте терь ждем=)

XpycTaJIb хз=) но он точно умеет банить=)) меня разок забанил, если банит наверно анбан могет дасть=)) OverDrive охей отпишу а чо викторина давно работает?

Егора напиши ник свой на сибнете, я ща смолу отпишу может разбанит(если он еще админит=))

через поскаль моно=)) Добавлено спустя 31 секунду: и без брейка а то препод кусается когда ее юзают типо прогер из тя хреновый если бряк используешь

можете написать код плз этого поиска, только без испольщования функции

=)) улыбнолу да ты миллионер=))

и монтировочноголоводырявое

=)) прикинь когда с микрика выходили бы, и как на аве Hersones делали бы на вопрос а за проезд xDDDD

нее я не выбегаю=))) я просто часто забываю просто заплатить( в трамвае всегда катаюсь там кондуктор сам подходит) Добавлено спустя 21 секунду: лучше пойду деффчонок цеплять xDDDD

я чото прикольнулся в последнее время на халяву в микрике кататься=))) тупо захожу и не плачу, а еси водил начинает мол типо за проезд плати я гворю на выходе заплачу=)))))

Аллерия тащет апще

kirill[kirill]

Роман17 она тебя узнала просто постеснялась подойти xDDD ну все накаких фото до середины августа xDD

+work, sweet work xDD -а на работе токо босс играю в шахматы