BrdGuest Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Program p2;   Var     x: Integer;   Begin     Write('Vvedite x: ');     ReadLn(x);       If x < 0 Then         WriteLn('-')     Else         If x > 0 Then             WriteLn('+')         Else             WriteLn('0');       ReadLn; End. Всего записей: 43 | Зарегистр. 07-12-2007 | Отправлено: 00:08 15-12-2007

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование