Var s: string; n,k: integer; begin write('строка: '); readln(s); k: =0; n: =pos('abc',s); if n> 0 then repeat k: =k+1; delete(s,1,n+2); n: =pos('abc',s); until n=0; writeln(k); end. строка: fdrsabcde dsabcjhy abckjuy 3 строка: dscabgfre fhygdte 0
Спасибо
Ответ дал: Гость
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
Популярные вопросы