Задан фрагмент текста. проверить, имеется ли в нем открывающих и закрывающих круглых скобок. рекомендации: должно существовать взаимно однозначное соответствие открывающих и закрывающих скобок, при котором открывающая скобка всегда предшествует соответствующей.

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

program zadacha;

var x: integer;

begin

  randomize;

  x: =random(9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)+1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000;

  if (x mod 3=0) then begin

    if (x mod 9=0) then writeln('делится на 3 и на 9);

  end;

  if (x mod 3=0) then begin

    if (x mod 9> 0) then writeln('делится только на 3);

  end;

  if (x mod 9=0) then begin

    if(x mod 3> 0) then writeln('делится только на 9);

  end;  

end.

 

 

p.s. вы уверены, что стозначное число?

Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses crt; var s1,s2,z1,z2: string;     i: integer; begin z1: ='минск столица беларуси'; z2: ='беларусь ты моя синеокая';   writeln('dana stroka: '); writeln(z1); s1: =''; s2: =''; i: =1; while z1[i]< > ' ' do       begin       s1: =s1+z1[i];       inc(i);       end; i: =length(z1); while z1[i]< > ' ' do       begin       s2: =z1[i]+s2;       dec(i);       end; delete(z1,1,length(s1)); delete(z1,length(z1)-length(s2)+1,length(s2)); write (s2,z1,s1); writeln; writeln('dana stroka: '); writeln(z2); s1: =''; s2: =''; i: =1; while z2[i]< > ' ' do       begin       s1: =s1+z2[i];       inc(i);       end; i: =length(z2); while z1[i]< > ' ' do       begin       s2: =z2[i]+s2;       dec(i);       end; delete(z2,1,length(s1)); delete(z2,length(z2)-length(s2)+1,length(s2)); write (s2,z2,s1); readln; end.