Найти и вывести номера последних скобок в текстах - Pascal ABC (16790)

Формулировка задачи:

Описать функцию, определяющую номер последней закрывающейся скобки (круглой или квадратной) в тексте. В главной программе дано 2 текста S1 и S2. Найти и вывести номера последних скобок в текстах.

Код к задаче: «Найти и вывести номера последних скобок в текстах - Pascal ABC (16790)»

textual
function find(str:string):integer;
var i:integer;
begin
     i:=length(str);
     while not((str[i]=')') or (str[i]=']')) do
         i:=i-1;
     find:=i;
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ