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

210

479

Посмотреть ответы 2

Ответы на вопрос:

lipa2907

Информатика

4,6(40 оценок)

Var s,sw: string; i,j,bst: integer; begin s: ='строка для решения арба еле реестр'; bst: =1; sw: =''; write('строка для поиска - '); writeln(s); for i: =1 to length(s) do begin if (ord(s[i])=32) then begin if (s[bst]=s[i-1]) then begin for j: =bst to i-1 do sw: =sw+s[j]; writeln('найдено слово - ',sw); sw: =''; end; bst: =i+1; end; end; if (s[bst]=s[length(s)]) then begin for i: =bst to length(s) do sw: =sw+s[i]; writeln('найдено слово - ',sw); end; end.

malinkarinka599

Информатика

4,5(85 оценок)

Что бы перевести из 10-но с.с в двоичную,необходимо данное числа делить на основание переводимой с.с (т.е на 2),до тех пор пока частное не станет меньше или равное остатка! потом переписываем ответ с последнего частного и всех последующих остатков(т.е с конца) - системы счисления, пишется внизу 1995 (10) = 11111001011 (2) 1997 (10) = 11111001101 (2)