Ответ(ы) на вопрос:
Гостьvar
i,x,y,z:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='*' then x:=x+1;
if s[i]=':' then y:=y+1;
if s[i]=';' then z:=z+1;
end;
writeln('* ',x);
writeln(': ',y);
writeln('; ',z);
end.
Не нашли ответ?
Похожие вопросы