Меню сайта

Задача №30

Вставитьвместо пробелов точки.

uses crt-

vardl,ch,n:integer-

text,text1:string-

label 1-

begin

clrscr-

writeln(‘Введите текст’)-

readln(text)-

dl:=length(text)-

n:=pos(‘ ‘,text)-

1:if n&gt-0 then

begin

Delete(text,n,1)-

insert(‘.’,text,n)-

dl:=length(text)-

if dl&gt-0 then

begin

n:=pos(‘ ‘,text)-

goto 1-

end

end-

writeln(text)-

end.

Категория: Строки | Дата: 12.01.13

Меню раздела
Блок