Склавиатуры вводят слово и символ.составте программу - вопрос №355034 от pactuwka2 20.08.2020 00:48

Question

Информатика: Склавиатуры вводят слово и символ.составте программу которая: подсчитывает количество вхождений заданного символа

pactuwka2 · Answer

var a:string;  b:char; i,sum:integer; begin readln(a,b); for i:=1 to length(a) do begin if pos(b,a) 0 then begin sum:=sum+1; delete(a,1,pos(b,a)); end; end; writeln(sum); end....