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

Задача 62.

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

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





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru