с клавиатуры вводят слово и символ.Составте программу ...
с клавиатуры вводят слово и символ.Составте программу которая:подсчитывает количество вхождений заданного символа
Есть ответ
17.12.2022
166
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022