|
|
|
|
|
|
|
Вернуться
| 1 Мейрам Ерасыл, 11 октября 2018 г. 17:33:59 | |
[p[
|
|
|
| 2 Неизвестный, 06 октября 2018 г. 17:38:44 | |
Разбиваете строку на слова
readln(s);
s1:='';
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
d:=ord(s[i]);
if d<97 then
begin
d:=d+32;
q1:=chr(d);
s[i]:=q1;
end;
end;
end;
repeat
d:=pos(' ',s);
if d<>0 then s1:=copy(s,1,d-1) else s1:=s;
//s1 ето вашое слово,только я тут перебираю слова и удаляю их после етого,а вы не удаляйте а смотрите
неубывающее оно а если нет то удаляете
delete(s,1,d);
s1:='';
until d=0
Можно легко переделать ето на вашу програму но я етого делать не буду
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
