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

@Наталия_28 · Регистрация: 11.01.2013

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

Помогите, пожалуйста, написать программу. В задании вводится фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Определить, имеются ли в ней числа, стоящие из одной цифры?

@xod · 06.07.2014, 18:18

QBasic/QuickBASIC

DEFSTR F-G, S
DEF fnf (g)
   fnf = "No"
   IF "0" <= g AND g <= "9" THEN fnf = "Yes"
END DEF
CLS
INPUT "FRAZA = "; f
f = " " + f + " "
 
FOR i% = 1 TO LEN(f)
   s1 = MID$(f, i%, 1)
   s2 = MID$(f, i% + 1, 1)
   s3 = MID$(f, i% + 2, 1)
   IF fnf(s1) = "No" AND fnf(s2) = "Yes" AND fnf(s3) = "No" THEN
      PRINT " Yes"
      GOTO 100
   END IF
NEXT i%
PRINT " No"
100
END

@Наталия_28 14 / 2 / 0 Регистрация: 11.01.2013 Сообщений: 26
		1
	Определить, имеются ли в фразе числа, стоящие из одной цифры? 29.10.2013, 23:41. Показов 1098. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста, написать программу. В задании вводится фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Определить, имеются ли в ней числа, стоящие из одной цифры? 0

Опции темы

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

Решение