Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Вот программа (короче я не понял Ваше условие - там какие то С в кавычках, С без кавычек...)

uses Crt;
var S: string;
     i, Len, Sum: integer;

begin
  ClrScr;
  Write( Slovo = );
  ReadLn(S);
  Len:=length(S);
  for i:=1 to Len do
    if S[i]=c then
      Sum:=Sum+1;
  WriteLn( Colichestwo  c = , Sum);
ReadLn;
end.