1. Realme показала смартфон на 10 000 ма ч и тонким корпусом
    FaaeRw07.05.2025 в 14:25от
  2. ⚡️best price⚡️скупка скинов cs2⚡️ ботами/обменов/холд/кт-аккаунты⚡️в сети 24/7⚡️
    Ten&Ten07.05.2025 в 14:24от
  3. Релиз gta 6 повлиял на дату выхода death stranding 2
    FaaeRw07.05.2025 в 14:22от
  4. В поиске специалистов по соц. сетям, умеющих делать грязную рекламу
    Joe_Biden07.05.2025 в 14:16от
  5. Battlefield 2042 получила новый ивент в стиле dead spacе
    FaaeRw07.05.2025 в 14:14от
  6. Flood v. 217
    givememoney66607.05.2025 в 14:12от
  7. Valebyte.com - выделенные серверы и windows rdp в нидерландах
    Valebyte07.05.2025 в 14:10от
  8. ✅аккаунты ГУслуги подвержденные
    caseshopshadow07.05.2025 в 13:50от
  9. ✔️интим приватки отечественных тг-моделей|рашн слатс
    Рей Штольц07.05.2025 в 13:23от
  10. ✔️горячие интим архивы девушек vk 18+|тг/охота/эскорт/камеры|shtolts shop
    Рей Штольц07.05.2025 в 13:23от
  11. ✦ скупка cs:go, dota, rust ✦высокий % ✦ ботами/трейдом✦ instant pay ✦
    KillerWhile07.05.2025 в 12:58от
  12. ♚куплю ботов с скинами csgo hold/unhold ♚ работаю с 2013г.
    jizmuS07.05.2025 в 12:40от
  13. Лучший регистратор доменов в telegram боте [от 4$, абузоустойчивость]
    Gturbo07.05.2025 в 12:38от
  14. Swiftproxy.net ✅ $0.7/gb|90m+ clean residential proxies| non-expiring traffic
    Swiftproxy07.05.2025 в 12:32от
  15. 60% скупаю баланс стим | моментальные выплаты | trc20 | через тп steam
    KD6 - 3 .707.05.2025 в 12:28от
  16. Steam nolimit 10лвл ~150игр
    D1zo07.05.2025 в 12:09от
  17. ❤️❤️❤️ аккаунты pwa & wechat | </> code store
    dxrsu07.05.2025 в 11:59от
  18. ✅ xsocks.pro - приватные прокси us europe & worldwide (wifi/lte) ✅
    XSocks07.05.2025 в 11:56от
Загрузка...
  1. Читы valorant bluew приватный чит на valorant + спуфер 2025
    465
    WizeWamter
  2. Арбитраж трафика | by stritksy | 1 часть
    342
    Stritksy
  3. ☘️5e|b5|pw|pwa|qq|wechat|weibo|baidu|douyin [cao-shop]☘️
    245
    ★︎VaViLoN★︎
  4. Продам reddit аккаунты | магазин reddit аккаунтов
    228
    Roun
  5. Grand theft auto 6 получила дату выхода
    186
    FaaeRw
  6. В steam начались скидки на серию battlefield
    177
    FaaeRw
  7. Набор сотрудников по работе eu
    172
    WorkerP2P
  8. 1 ton free
    153
    ArtRoyal
  9. 50 аккаунтов steam 10 lvl бесплатно — участвуй сейчас!
    143
    nxiya
  10. Продам аккаунт дота 2 с золотым плащем на рубика.
    140
    Qweeze777
  11. Amd готовит gpu процессоры нового поколения
    133
    FaaeRw
  12. Набор опытных кураторов в новую команду с огромным потенциалом
    131
    KiritoDon
  13. I need a large number of cs2 accounts regarding the trading ban!!
    129
    Nzzh3120
  14. Colorful раскрывает geforce rtx 5060m
    129
    FaaeRw
  15. Tb acc or
    126
    Zhuyuchen411
  16. I need a large number of cs2 accounts regarding the trading ban!!
    123
    Nzzh3120
  17. 1 ton free
    122
    ArtRoyal
  18. Отзыв о армор зми - жулики
    119
    VereJet
Загрузка...
  1. 1 ton free
  2. 1 ton free
  3. 1 ton free
  4. 50 аккаунтов steam 10 lvl бесплатно — участвуй сейчас!
  5. Разработка - tg bots , мульти страничный сайт бесплатно
  6. 50 аккаунтов steam 10 lvl бесплатно — участвуй сейчас!
  7. Розыгрыш 1000 неограниченных steam api! 50 победителей!
  8. Розыгрыш 100 steam аккаунтов (уровень 10) — 10 победителей
  9. Розыгрышь аккаунта steam с рабочим обменом
  10. Розыгрышь аккаунта steam с рабочим обменом
  11. Розыгрышь аккаунта steam с рабочим обменом
  12. Розыгрышь аккаунта steam с рабочим обменом
  13. 5$ ✔️sss union✔️|cn/eu/usa|❤️‍|подмена+maf by trump|
  14. 5$ ✔️sss union✔️|cn/eu/usa|❤️‍|подмена+maf by trump|
  15. 5$ ✔️sss union✔️|cn/eu/usa|❤️‍|подмена+maf by trump|
  16. Luxhost.cc | 15$ на баланс сервиса
  17. Luxhost.cc | бесплатный домен
  18. Luxhost.cc | бесплатный сервер
Загрузка...

Задача Pascal

Тема в разделе "С/С++/Pascal/Delphi", создана пользователем ๖ۣۜCALL o'BOCK, 29.03.2015.

  1. ๖ۣۜCALL o'BOCK

    Прокачка WoT & Seller
    ๖ۣۜCALL o'BOCK

    Статус:
    Оффлайн
    Регистрация:
    26.09.12
    Сообщения:
    699
    Репутация:
    368 +/-
    [​IMG]
    Помогите пожалуйста с решением)
     
    29.03.2015
    #1

  3. Nimo

    Nimo

    Статус:
    Оффлайн
    Регистрация:
    06.01.13
    Сообщения:
    48
    Репутация:
    7 +/-
    Код:
    Type
  Numbers = (Zero, One, Two, Three, Four, Five);

Var
  d : 0..5;
  n : Numbers;
begin
  readln(d);
  n := Numbers(Ord(d));
  writeln(n);
  readln();
end.
     
    30.03.2015
    #2