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

Обработка одномерных массивов.
Пользователь вводит слово. Подсчитать количество букв d, c и k в этом слове.

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

Var s: string;
    ch: char; 
   i,d,c,k: integer;
begin
  write(слово:  );  readln(s);
  i:=1; d:=0;  c:=0;  k:=0;
  repeat 
   ch:=s[i];
    case ch of 
      d: d:=d+1;
      c: c:=c+1;
      k: k:=k+1;
    end;
    i:=i+1;
  until i>length(s);
  writeln(кол-во d = ,d,  кол-во c = ,c,  кол-во k = ,k);
end.