Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 63.

Составить программу подсчета в заданном тексте количества вхождений заданного сочетания символов.

program p43;
  uses crt;
  var a, b: string;
      i,n:integer;
begin
  clrscr;
  write('Исходный текст a=');readln(a);
  write(' набор символов b=,);readln(b);
  for i:=1 to length(a)-length(b)+1 do
    begin
      if copy (a,i,length(b))=b then
      n:=n+1;
    end;
  writeln ('n=',n);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100