Дана фраза, определить: имеются ли в ней числа, состоящие из 1 цифры

@Lafee · Регистрация: 03.06.2013

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

Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Требуется:
Определить, имеются ли в ней числа, состоящие из одной цифры

@Puporev · 19.01.2014, 07:32

Pascal

uses crt;
var s:string;
    i,k:byte;
begin
writeln('Введите фразу из слов, разделенных одним пробелом, в конце точка');
read(s);
i:=1;
k:=0;
while(i<length(s))and(k=0) do
if(s[i] in ['0'..'9']) and((i=1)or(s[i-1]=' '))and((i=length(s)-1)or(s[i+1]=' '))
then k:=1 else inc(i);
if k=1 then write('Есть число из одной цифры')
else write('Нет чисел из одной цифры')
end.

@Lafee · 19.01.2014, 10:59 **[ТС]**

спасибо вам огромное!!!!

@Lafee 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 31
		1
	Дана фраза, определить: имеются ли в ней числа, состоящие из 1 цифры 18.01.2014, 19:24. Показов 2472. Ответов 2 Метки нет (Все метки) Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Требуется: Определить, имеются ли в ней числа, состоящие из одной цифры 0

@Lafee 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 31
	19.01.2014, 10:59 [ТС]	3
	спасибо вам огромное!!!! 0

Опции темы

Дана фраза, определить: имеются ли в ней числа, состоящие из 1 цифры

Решение