Задан фрагмент текста. Проверить, имеется ли в нем баланс открывающих и закрывающих круглых скобок. Рекомендации: должно существовать взаимно
10-11 класс
|
однозначное соответствие открывающих и закрывающих скобок, при котором открывающая скобка всегда предшествует соответствующей.
var s:string; i,n:integer;
Begin
read(s);
for i := 1 to length(s) do begin
if s[i]="(" then n=n+1;
if s[i]=")" then n=n-1;
if n<0 then begin
Write("нет баланса");
halt;
end;
Write("есть баланс");
End
Другие вопросы из категории
нечетных элементов.
Вывести на печать значения функции z=x²+y+sin(x) при изменении
Читайте также
котором A[i]<0, иначе выведите сообщение.
текст, у- текст в обратном порядке. Вывести на кран, "является перевертышем" или "не является перевертышем".
в)подсчитывает количество вхождений заданного символа.
1)Задан список из 7 фамилий. Определить, имеется ли в списке фамилия, начинающаяся с буквы "А" и состоящая из 6 букв. Если да, то вывести ее на экран
2)В заданном тексте удалить символ ' , ' и подсчитать число удаленных символов. Предусмотреть возможность задания с клавиатуры удаляемого символа.
3)Организовать простейшую базу данных по студентам группы. Сведения о студенте включают: ФИО, год рождения, пол, средний балл. Обеспечить ввод данных, редактирование, вывод на экран. Информацию хранить в типизированном файле.
Помогите пожалуйста решить. отдаю полностью все свои баллы