Задание:
С клавиатуры вводят слово и символ. Составьте программу, которая: а) проверяет, есть ли в этом слове данный символ; б) определяет позицию заданногосимвола; в) подсчитывает колличество вхождений заданного символа.
Решение:
varslovo,simval: string; i,k: integer; begink: =0; write ('vvedite slovo '); readln (slovo); write ('vvedite simval '); readln (simval); for i: =1 to length (slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln (i,'); end; if k>=1 thenwriteln ('YES vstre4aets9 ',k,' raz, na pozicii ',i) else writeln ('NO'); writeln; end. Вот в одном решении
Знаете другой ответ?