Дана строка. Подсчитать количество подсчитать количество содержащихся в ней цифр

@backfist · Регистрация: 13.06.2014

Author24 — интернет-сервис помощи студентам

1)Дана строка. Подсчитать количество подсчитать количество содержащихся в ней цифр(Эту задачу нужно решить через множества)
2)Как из множества вынести элемент?

Я решил задачу, только не уверен что именно через множества как требуется. Правильно ли?

Pascal

cifri: set of char
cifri:=['0'..'9'];
var 
str:string;
i:integer;
begin
readln(str);
for i:=1 to lenght(str) do 
begin
if str[i] in cifri then inc(i)

@Puporev · 28.11.2014, 15:01

Не по теме:

Дана строка. Подсчитать количество подсчитать количество содержащихся в ней цифр

Нужно было соблюдать логику и написать
Дана строка. Дана строка. Подсчитать количество подсчитать количество содержащихся в содержащихся в ней цифр ней цифр

Добавлено через 3 минуты

Сообщение от backfist

Как из множества вынести элемент?

Зачем тебе множество, если нужно только

Сообщение от backfist

подсчитать количество содержащихся в ней цифр

Множество задается как константа

Pascal

1	const cifri:=['0'..'9'];

и используется в программе как у тебя и сделано.

@backfist · 28.11.2014, 15:14 **[ТС]**

второй вопрос не к этой задаче. это я в целом интересуюсь.

Сообщение от Puporev

Множество задается как константа

простоя я решал по другому и мне сказали что это решено не через множество:

Pascal

Mn=set of char
Mn:=['0'..'9']
var
colvo:integer;
begin
readln(cifra);
colvo:=o;
if(0<=c and c<=9) then inc(colvo);

А теперь значит я именно через множество решил?

@Puporev · 28.11.2014, 15:21

Теперь да. Только код с ошибками.

Pascal

const cifri=['0'..'9'];
var
str:string;
i,k:integer;
begin
readln(str);
k:=0;
for i:=1 to length(str) do
if str[i] in cifri then inc(k);
write('Количество цифр=',k);
end.

@backfist · 28.11.2014, 15:26 **[ТС]**

Спасибо!

@backfist 0 / 0 / 0 Регистрация: 13.06.2014 Сообщений: 11
	28.11.2014, 15:26 [ТС]	5
	Спасибо! 0

Дана строка. Подсчитать количество подсчитать количество содержащихся в ней цифр

Решение