Вопрос по информатике:
50 баллов. PascalABC
Дан текст, состоящий из слов: между словами произвольное число пробелов, после последнего слова точка.
Напечатать все слова, удалив из них две последние буквы.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.06.2015 20:19
- Информатика
- remove_red_eye 5895
- thumb_up 8
Ответы и объяснения 2
l,i:integer;
s,w:string;
prt:boolean;
c:char;
begin
{ s:=' Арбуз вагон барабан Goodday dummy. '; }
Write('Введите строку: ');
Readln(s);
l:=Pos('.',s);
s:=Copy(s,1,l-1)+' ';
i:=1;
prt:=False;
w:='';
while i<=l do
begin
c:=s[i];
if c=' ' then
begin
if prt then
begin
if Length(w)>2 then Write(Copy(w,1,Length(w)-2),' ');
w:='';
prt:=not prt
end
end
else
begin
w:=w+s[i];
prt:=True
end;
Inc(i)
end;
Writeln
end.
- 21.06.2015 06:07
- thumb_up 29
i:integer;
begin
writeln('Введите строку:');
readln(s1);
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
s1[length(s1)]:=' ';
s2:='';
for i:=1 to length(s1)-2 do
if (s1[i+2]' ')and(s1[i+1]' ')
then s2:=s2+s1[i];
writeln(s2);
end.
Пример:
Введите строку:
все слова удалив две последние буквы.
в сло удал д последн бук
- 22.06.2015 01:24
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.