Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Символы
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

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

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com