Решить в Pascal. Перед тем как выкладывать ответ проверьте свое решение.
Answers & Comments
Beetlejuice541 program tref; var a,i:integer;s:string;b:char; begin readln(s); readln(b); for i:=1 to length(s) do if(s[i]=b)then a:=a+1; writeln(a);y end. Сначала вводим строку,потом символ
Answers & Comments
program tref;
var a,i:integer;s:string;b:char;
begin
readln(s);
readln(b);
for i:=1 to length(s) do
if(s[i]=b)then a:=a+1;
writeln(a);y
end.
Сначала вводим строку,потом символ