50 . pascalabc дан текст, состоящий из слов: между словами произвольное число пробелов, после последнего слова точка. напечатать все слова, удалив из них две последние буквы.

170

200

Посмотреть ответы 3

Ответы на вопрос:

merey221

Информатика

4,8(38 оценок)

Var 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.

MIO05

Информатика

4,5(36 оценок)

Var s1,s2: string; 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. пример: введите строку: все слова удалив две последние буквы. в сло удал д последн бук