PRINT гласные, которые стоят на нечетном месте

@SlavokSokol · Регистрация: 22.04.2013

Составьте программу, выясняющую, есть ли в слове Х гласные, стоящие на нечетном месте.

@m-ch · 22.04.2013, 22:45

QBasic/QuickBASIC

INPUT x$
FOR i = 1 TO LEN(x$) STEP 2
  IF INSTR("aeiouy", LCASE$(MID$(x$, i, 1))) THEN p = 1: EXIT FOR
NEXT i
IF p THEN PRINT "Yes" ELSE PRINT "No"

@SlavokSokol 0 / 0 / 0 Регистрация: 22.04.2013 Сообщений: 9
		1
	PRINT гласные, которые стоят на нечетном месте 22.04.2013, 22:07. Показов 1169. Ответов 1 Метки нет (Все метки) Составьте программу, выясняющую, есть ли в слове Х гласные, стоящие на нечетном месте. 0

	22.04.2013, 22:45

Решение