Добавить перед каждым словом его порядковый номер в предложении. pascal написать программу кто сможет

Инга1702 Инга1702    1   03.10.2019 18:40    0

Ответы
ванга13 ванга13  21.08.2020 21:19

Pascal ABC

var

 s,news:string;

 k:longint;

begin

 k:=0;

 read(s);

 s:=s+' ';

 while s <> '' do

 begin

   if copy(s,1,pos(' ',s)) = ' ' then

   begin  

     delete(s,1,pos(' ',s));

     news:=news+' ';

   end

   else

   begin

     inc(k);

     news:=news+inttostr(k)+'.'+copy(s,1,pos(' ',s));

     delete(s,1,pos(' ',s));

   end;

 end;

 writeln(news);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика