Склавиатуры вводят слово и символ.составте программу - вопрос №355034 от ymniy4 24.04.2023 03:43

Question

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

ymniy4 · 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....