Просили ответ на QBasic'е, и никто не дал.
Всяки программист начинает с BASIC, с него даже БГ начинал.
Оффтоп: Я может погорячился. Я Pascal уважаю, но откровенно недолюбливаю.
QBasic у себя не нашел, а вот small есть:

code:

print "input a word: "
input s
s1 = MID(s, 2, 1)
if lower(s1) = "e"
   print "Second letter is E"
else 
   print "Second letter is NOT E"
endif

Я думаю, уже нет смысла продолжать далее

__________________
Личный блог: http://alex.chkv.net/. ЖЖ: http://achuikov.livejournal.com/
Все делается для того, что бы ничего не делать!
Прастите миня за арфаграфию и пунхтуацыю!
"Крути руля!.." (c) ГАИ г. Аксай.

Адрес поста | Один пост | Сообщить модератору | IP: Logged