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

Задача 66.

Убрать из данного текста уже встречающиеся символы. (Произвести "выжимку" текста)

program p46;
  uses crt;
  var а,b, с: string;
      i,j:integer;
begin
  clrscr;
  write(' Введ текст a=');readln(a);
  b:= ' ';
  for i:=1 to length(a) do
    begin
      c:=copy(a,i,1);
      if pos(c,b) = 0 then b:=b+c;
    end;
  writeln(b)
  readln;
end.





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