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

Задача 64.

Составить программу устранения лишних пробелов в тексте. (Лишним будем считать каждый пробел, следующий непосредственно за пробелом.)

program р44;
  uses crt;
  var a: string;
      i:integer;
begin
  clrscr;
  write('Исходный текст а=');readlп(а) ;
  i:=1;
  repeat
    if copy(a,i,2)=' ' then
    a:=copy(a,1,i)+copy(a,i+2,length (a))
    else
    i:=i+1;
  until (i>length(a));
  writeln('a=',a);
  readln;
end.





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