Найти во введенной строке тексты, расположенные между ключе-выми словами begin и end - Turbo Pascal
Формулировка задачи:
Найти во введенной строке тексты, расположенные между ключе-выми словами begin и end и отпечатать каждый из них с новой строки. В строке произвольное количество таких конструкций.
Помогайте!
Помогайте!
Решение задачи: «Найти во введенной строке тексты, расположенные между ключе-выми словами begin и end»
textual
Листинг программы
var
s: string;
i: integer;
begin
readln(s);
while pos('end', s) <> 0 do
begin
for i := pos('begin', s) + 5 to pos('end', s) - 1 do write(s[i]);
writeln;
delete(s, 1, pos('end', s) + 2)
end;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д