составить программку определяющую сколько букв "с" в данном слове

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.

Костик Скурепов · Answer 2 · 2019-09-12 06:25:45+3:00

Костик Скурепов 2019-09-12 06:25:45

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] ) lt;gt; 0 then inc(sum);
writeln('Ответ = ',sum);
end.

Агата 2019-09-12 06:30:06

спасибо

Амина 2019-09-12 06:36:38

Странноватый метод: использовать функцию поиска в строке из одного знака?

Anja Badenshina 2019-09-12 06:38:08

строчка может быть хоть какой длины, расчеты правильные

Ивашута Даниил 2019-09-12 06:45:35

У Вас оба довода pos - строки длины 1. Что st1='c', что st[i].

Лилия Аргиевич 2019-09-12 06:48:16

А работать будет, я же не писал, что решение неверное, я сказал, что странноватое оно... нерациональное.

О проекте

составить программку определяющую сколько букв "с" в данном слове

Добро пожаловать!