Имеется текст(любой) определить сколько слов в тексте начинаются со слога "со" , нужно решение,так как завтра контрольная и хочется её хорошо написать)заранее ) нужно решить в паскале)

153

365

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

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

eduard22222

Информатика

4,8(78 оценок)

Вот так эту можно решить на современном паскале. но, к сожалению, так в школах не учат, заставляя тратить время и силы на громоздкие программы, в которых легко ошибиться. // pascalabc.net 3.2 begin write(readlnstring('-> ').towords.where(x-> x.left(2)='со').count) end. пример: -> три собаки сосали одну косточку 2 а вот так (примерно, потому что обычно еще хуже) учат писать программы в var s: string; i,n,k,p: integer; begin write('-> '); readln(s); if copy(s,1,2)='со' then k: =1 else k: =0; delete(s,1,3); repeat i: =pos(' со',s); if i> 0 then begin inc(k); delete(s,1,i+3) end until i=0; writeln(k) end.