 на тему констант, вопросик, не смог найти в факе |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| kr3v3tkus |
 20.12.2005 21:38
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация:  0   |
задачка - Дана строка. Подсчитать количество цифр, которые в ней содержатся.
я гдето видел, что в константу можно вложить несколько значений, но в учебнике не нашёл.Может ето у меня глюк был и значения влаживаются не в константу??? подскажите куда мне забить 0,1,2,3,4,5,6,7,8,9? -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
   |
 
|
| klem4 |
20.12.2005 21:44
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
const digits = ['0'..'9'];
Сообщение отредактировано: volvo - 6.11.2006 21:44 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| kr3v3tkus |
20.12.2005 21:52
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: 0 |
О
 Клем пасиба я то думал как)))О Клем пасиба я то думал как)))а почему тут несовпадение типа пишет? ( program lol;
const n=['0'..'9'];
var text:string;
i,k:integer;
begin
writeln('vvest1 text');
readln(text);
k:=0;
for i:=1 to length(text) do
if text[i]=n then inc(k);
writeln('4isla v texte vstre4auts1a ',k,' ra3(a)');
readln;
end.
Сообщение отредактировано: volvo - 6.11.2006 21:45 -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.07.2025 8:02 |