Кате нужно вымыть посуду и сделать урки, что бы сходить в кино или пригласить друзей
1. Команды
2. Контекстное
3.Главное
4. Компьютер.
Вроде так.
<span>фрегат & эсминец 500
фрегат 2000
эсминец 2500</span>
Формула включений исключений
<span>фрегат | эсминец = </span>фрегат + эсминец - (фрегат & эсминец) = 2500+2000-500 = 4000
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.