//Pascal //-------------------------------------------- var S: string; i, counts: byte; begin counts := 0; write('Введите S: '); readln(s); for i := 1 to length(s) do if S[i] = '9' then counts := counts + 1; writeln('Количество "9" = ', counts); readln; end.
//--------------------------------------------
var
S: string;
i, counts: byte;
begin
counts := 0;
write('Введите S: ');
readln(s);
for i := 1 to length(s) do
if S[i] = '9' then
counts := counts + 1;
writeln('Количество "9" = ', counts);
readln;
end.