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

KezhmaN, когда x2=x1"2 , у2=у1"3. или х2=х1"3, у2=у1"2

valvE212, создаешь список знаков препинания и проверяешь каждый символ по этому списку

valvE212, вот на примере точки и запятой. Дальше, думаю, разберешься. Х:string; begin readln(x); for i:=1 to 255 do begin if (x[ i]=".") or (x[ i]=",") then n:=n+1 end; write (n); end.

EwGeN DoGG, логичнее не до 255 выполнять а до length(x)

BlackKoshak, согласен

Друзья! Извените за оффтоп! Мне срочно нужен Турбо Паскаль 7. Где скачать можно в *.zip

valvE212, seclub.org/forum/goto/9188150/ - спс

EwGeN DoGG, seclub.org/forum/goto/9190074/ - ну я типа того написал - upwap.ru/599923 ток чет длинно получается

valvE212, можно проще сделать upwap.ru/599997 . Только вот не понятно какие знаки нужно принимать за знаки принипинания. Если вообще всевозможные символы, то можно цикл в цикле сделать, один из которых проверяет каждый символ символ, другой перечисляет эти символы в порядке таблицы символов. Можно еще сделать так, из всего количества символов в строке нужно отнять количество букв и пробелов. (Второй способ немного проще и быстрее по выполнению)

seclub.org/forum/goto/9196602/ - нашёл!

upwap.ru/600036 - Вот задача, которая высчитывает время которое вы спали. Например:
Введите время в которое Вы легли вчера (только час)
4
Введите время в которое Вы легли вчера (мидуты)
30
Введите время в которое Вы встали сегодня (только час)
6
Введите время в которое Вы встали сегодня (минуты)
30
Вы спали 2 ч. 0 мин. В минутах: 120 мин.