06.12.2008, 22:41
общий
это ответ
Здравствуйте, Medbedbnofear!
Привожу вариан решения второй задачи. Предполагается, что разделитель пробел. Код с пояснениями, что не понятно в минифорум.
Надеюсь помог. Удачи.
Приложение:
program stroki;
procedure podstr(st : string);
var
b : integer;
begin
b := pos('ая', st); //ищем подстроку
if b <> 0 then // есть искомая подстрока, проверяем, что
if b = length(st) - 1 then //подстр.в конце слова
writeln(st);
end;
var
s, s1 : string;
i : integer;
begin
writeln('введите строку.');
readln(s);
if length(s) > 0 then
begin
i := 1;
repeat
if s[i] = ' ' then
begin
delete(s1, i, 1); // удаляем пробел
podstr(s1); // выз. процедуру
delete(s, 1, i); // удаляем слово
i := 0;
s1 := '';
end
else s1 := s1 + s[i]; // ищем слово до пробела
inc(i); // увеличиваем i на еденицу
until (i = length(s)+1);
podstr(s1); //последнее слово
end
else writeln('Вы не ввели строку.');
readln;
end.