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

Question

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

Comments

Пробелы лишние могут быть?

---

да

---

Ехх,грустна ну ладно,напишу сейчас

Answer 1

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.

Comments

А ты случайно блок схему нарисовать не сможешь?) пожалуйста)

---

Не,извиняй это не ко мне,это звучит конечно звучит странно но нас в физ-мат лицее никогда не учили рисовать всякие блок схемы и тд,могу практически любую программу только написать

---

Спасибо и за это)

---

а ты сможешь ещё одну прогу написать?

---

Подсчитать количество слов в предложении, которые имеют более двух букв «а».