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

Задача 65.

По общим правилам оформления машинописных работ и служебных документов после знаков препинания (,.:;!?) пробел обязателен. Составить программу, добавляющую недостающие пробелы.

program p45;
  uses crt;
  var a,b: string;
      i:integer;
begin
  clrscr;
  write(' Исходный текcm = ');readln(a);
  i:=1;
  repeat
    b:=copy(a,i,1);
    if((b='.')or(b=',')or(b='!') or (b='?'))and (copy(a,i+1,1)<>' ')
    then a:=copy(a,1,i)+' ' + copy(a,i+1,length(a)-i);
    i:=i+1;
  until i>=length(a);
  writeln('a=',a);
  readln;
end.





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