Ввести текст.определить сколько раз встречается заданное слово.паскаль

242

371

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

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

24j18g81B

Информатика

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

Var s,ss: string; i,j,n,k: integer; begin write('введите текст: '); readln(s); s: =' '+s+' '; write('введите искомое слово: '); readln(ss); ss: =' '+ss+' '; n: =length(ss); i: =pos(ss,s); k: =0; if i> 0 then repeat inc(k); delete(s,i,n); i: =pos(ss,s); until i=0; writeln('слово встречается ',k,' раз(а)') end. тестовое решение: введите текст: по дороге, по тропинке, по леску пойдем введите искомое слово: по слово встречается 3 раз(а)

Эвридэй

Информатика

4,7(27 оценок)

1) 4^6=4096 2) пусть а=0, к=1, р=2, у=3. имеем четверичную систему счисления, тогда рукаа=2*4^4+3*4^3+1*4^2+0+0=16*(32+12+1)=720, значит, номер 721, т.к. первым эл-том значится нуль () 3) запишем 155=2*4^3+1*4^2+2*4^1+3*4^0=ркру