Предмет: Информатика,
автор: timsad
дана строка определить сколько в ней *:;
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Окружающий мир,
автор: altynbekasanaliev540
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Другие предметы,
автор: VictoriaGalleher
Предмет: Обществознание,
автор: Fktrctq13