составить программу определяющую сколько букв "с" в данном слове
Ответы на вопрос
Ответил ilczr
1
Program z_1;
var st,st1:string;
i,sum:integer;
begin
writeln('Введите Вашу строку');
readln(st);
st1:='с';
for i:=1 to length(st) do
if pos(st1,st[i] ) <> 0 then inc(sum);
writeln('Ответ = ',sum);
end.
var st,st1:string;
i,sum:integer;
begin
writeln('Введите Вашу строку');
readln(st);
st1:='с';
for i:=1 to length(st) do
if pos(st1,st[i] ) <> 0 then inc(sum);
writeln('Ответ = ',sum);
end.
87474245313D:
спасибо
Странный способ: применять функцию поиска в строке из одного символа?
строка может быть любой длины, расчеты правильные
У Вас оба аргумента pos - строки длины 1. Что st1='c', что st[i].
А работать будет, я же не писал, что решение неверное, я сказал, что странное оно... нерациональное.
Ответил антагонист
1
var a,b,c:integer;
d:string;
begin
writeln('введите слово ');
readln(d);
b:=0;
for a:=1 to length(d) do begin
if d[a]='с' then b:=b+1;
end;
writeln('количество символов "с" в данном слове ', b);
end.
d:string;
begin
writeln('введите слово ');
readln(d);
b:=0;
for a:=1 to length(d) do begin
if d[a]='с' then b:=b+1;
end;
writeln('количество символов "с" в данном слове ', b);
end.
Новые вопросы