Добавить перед каждым словом его порядковый номер в предложении. Pascal написать программу помогите кто сможет
Ответы
Ответ дал:
0
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.
Ответ дал:
0
А ты случайно блок схему нарисовать не сможешь?) пожалуйста)
Ответ дал:
0
Не,извиняй это не ко мне,это звучит конечно звучит странно но нас в физ-мат лицее никогда не учили рисовать всякие блок схемы и тд,могу практически любую программу только написать
Ответ дал:
0
Спасибо и за это)
Ответ дал:
0
а ты сможешь ещё одну прогу написать?
Ответ дал:
0
Подсчитать количество слов в предложении, которые имеют более двух букв «а».
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад