
Создаю хак группу!!!
Модераторы: Neoxygen, vsm, MadFlower
- Atyla
- Отец
- Сообщения: 4194
- Зарегистрирован: Вс сен 01, 2002 18:35
- Откуда: С вытрезвителя.
- Контактная информация:
угроза,
Если русские символы надо преобразовать тада приедтся вручную писать преобразование маленьких букв в большие, а если латинские то:
Если русские символы надо преобразовать тада приедтся вручную писать преобразование маленьких букв в большие, а если латинские то:
Код: Выделить всё
Var St:String;
I:Byte;
Begin
Write('Введите строку');
ReadLn(St);
For I:=1 to Length(St) Do St[i]:=UpCase(St[i]);
WriteLn('Result: ', St);
ReadLn;
End.
Последний раз редактировалось Atyla Пт май 16, 2003 08:44, всего редактировалось 1 раз.
ya voobsche mnogo chego kachayu..
Код: Выделить всё
╒═══════════════════════[dcc transfer stats]══════════════════════╕
│ │
│╓─[xferd in]─╓-[xferd out]─╖─[total files]─╓─[active]─╖─[limit]─╖│
│║ 15.69gb ║ 0.00bytes ║ 50 ║ 1 ║ 5 ║│
│╙────────────╜─────────────╙───────────────╜──────────╙─────────╜│
│ │
╓────[in stats]───╓───[out stats]───╖──────────[toggles]──────────╖
║ max: 66.05kb/s ║ max: 0.00kb/s ║ autoget: On paths: Off ║
║ min: 0.01kb/s ║ min: 0.00kb/s ║ overwrite: Off quiet: Off ║
╙─────────────────╜─────────────────╙─────────────────────────────╜