Нужно написать программу. Держи:
П0 1 0 / {x} 1 0 * ИП0 1 0 0 / - x=0 18 1 С/П 0 С/П
Выводит 1, если совпадают, и 0, если нет.
1)Иметь поставленную задачи и определить сущности.
2)В поле "Имя поля" вводится имя поля таблицы, являющееся его идентификатором. Рекомендуется формировать имена полей так, чтобы имя было коротким, не содержащим специальных символов (запятых, пробелов и т.д.) и отражающим смысл поля. Необходимо различать идентификатор поля в структуре таблицы и заголовок поля в выходном документе. Во втором случае заголовок поля должен в полной мере отражать смысл поля и обычно задается вручную при форматировании выходного документа.
В поле "Тип данных" выбирается один из типов, показанных в раскрытом списке на рисунке.
Поле "Описание" содержит комментарии к создаваемому полю таблицы. Его заполнение не является обязательным
нач
алг
нц 5 раз
сместиться(0,1);
сместиться на (-1,4);
сместиться на (3,-6);
кц
кон
Возможны какие либо недочеты, думаю сам сможешь подправить ;)
1674-786= 888 по-моему условие не правильное
var
s:string;
c1, c2, i:integer;
begin
writeln('Введите строку');
readln(s);
c1 := 0;
c2 := 0;
for i := 1 to Length(s) do
begin
if s[i] = '(' then
inc(c1);
if s[i] = ')' then
begin
inc(c2);
if c2 > c1 then
begin
writeln('Скобки расставленны неверно');
exit;
end;
end;
end;
if c1 = c2 then
writeln('Скобки расставлены верно')
else
writeln('Скобки расставленны неверно');
end.
