Обясните, зачем нужен символ "$"? Ну и проверку на длину строки в 50 символов, я думаю уже сами разберетесь. Просто подсчитайте количество символов у строке и if-фом задайте условие...
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>
Var s:string;k,i:integer;beginreadln (s);k:=0;for i:=1 to length(s) doif s[i]='d' then k:=k+1;writeln(k);end.
Вставка текста называется