Roman25
Удален
|
    
Проверить правильно ли в заданном тексте расставлены круглые скобки (т.е. находится ли справа от каждой открывающей скобки соответствующая закрывающая скобка, а слева от каждой закрывающей - соответствующая ей открывающая).
uses crt;
var n:char;
begin
repeat
if ord(n)=ord(')') then inc (summ1);
if ord(n)=ord('(') then inc (summ2);
if summ1=summ2 then writeln ('da') else writeln ('net');
until ord(n)=13;
readkey;
end.
Помогите достроить задачку, а то при варианте ))) ((( не работает, плз помогите...
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 5 марта 2005 18:00 | IP
|
|
Roman25
Удален
|
Господа, выручайте !!!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 6 марта 2005 16:35 | IP
|
|
|
Форум
Символы
