массивы испортили печень

[Stilet]

Дык это...
Допустим в переменку типа string чет вводится тогда цикл таков:
while переменка<>'символ' do begin
В переменку типа string чет вводится.
end;

[veter_s_morya]

Дык это...

Увы, но в моем случаи это не Дык, а кирдык. Вот подсознательно чувствую как сделать, а сделать не могу! Т.к. я новичек... глаза разбежались...
А код скинуть никак нельзя? А то поправде, забодался.

[Stilet]

Ну примерно так:

var c:string;
begin
repeat
 readln(c);
until c=' ';

т.е. цикл будет крутиться пока не будет введен пробел. С таким успехом можно и на ESC среагировать.

[-=<[Evklidd]>=-]

так вам же уже все Stilet написал!

while ch = 'N' do
 begin
  //ваш код
  readln(N);
 end;

[puporev]

To Evklid
Если уж цитируете человека, то цитируйте, а не перевирайте.
Stilet писал

Wile ch<>'N' do
begin
код
end;

[Stilet]

Wile

Ой я что так и написал??
Короче Пост 36 если что окончателен и бесповоротен )

[veter_s_morya]

А без repeat и until нельзя? А то я еще их не проходил. походу дела можно сделать как -=<[Evklidd]>=-?

while ch = 'N' do  
 begin  
  //ваш код   
  readln(N);   
 end;

[Stilet]

?

можно. делай как нравится.

[puporev]

Переделайте все-таки while ch = 'N' do на while ch <>'N' do, а то придется всю жизнь эту клавишу жать.

[veter_s_morya]

Вот последняя задача! Раньше задачки были с числами.., а теперь задачка с буковками!

Вводится строка текста на русском языке, заканчивающаяся точкой. Подсчитать, сколько раз встречается в тексте слово "то".

Понятно, что используется string. Мне эта задачка для образца нужна.