Дана строка определить сколько в ней *: ;

tiger071 tiger071    3   06.06.2019 22:20    3

Ответы
liltvin liltvin  01.10.2020 21:06
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика