Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами

@Nastya 007 · Регистрация: 19.02.2011

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

Дан текст , в котором имеется несколько идущих подряд цыфр . Получить число , образованное этими цыфрами .

@GodLikeRu · 24.02.2011, 19:27

Pascal

const
a:set of char=['1','2','3','4','5','6','7','8','9','0'];
 
var
s:string;
i:integer;
 
begin
readln(s);
for i:=1 to length(s) do
 if s[i] in a then write(s[i]);
end.

@Ev[G]eN · 24.02.2011, 20:35

или так

Pascal

var
 st: string;
 i: integer;
begin
 readln(st);
  for i:=1 to length(st) do
   if st[i] in ['0'..'9'] then
    write(st[i]);
end.

@Nastya 007 1 / 1 / 0 Регистрация: 19.02.2011 Сообщений: 27
		1
	Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами 24.02.2011, 16:58. Показов 1972. Ответов 2 Метки нет (Все метки) Дан текст , в котором имеется несколько идущих подряд цыфр . Получить число , образованное этими цыфрами . 0

	24.02.2011, 20:35

Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами

Решение