Задача. Написать программу, которая определяет сколько раз в слове повторяется буква.Дан...

Question

Задача. Написать программу, которая определяет сколько раз в слове повторяется буква.Дан текст ''информатика". Используя функцию COPY

Answer 1

Program Project1;
var x, n:integer; byk:char;
const a:string='информатика';
begin
  readln(byk);
  n:=0;
  for x:=0 to 10 do
    if Copy(a, x+1, 1)[1]=byk then n:=n+1;
  writeln(n);
end.