12.05.2010, 22:07
|
|
Участник форума
Регистрация: 27.04.2009
Сообщений: 189
С нами:
8968720
Репутация:
69
|
|
Держи вообщем, английский алфавит я надеюсь на русский поменять сможешь...
PHP код:
Program aBc;
Uses crt;
type Letters = set of 'a'..'z';
Const geng : Letters = ['a', 'e', 'i', 'o', 'u', 'y'];
Var str1 : string;
pos : integer;
Begin
clrscr;
writeln('Enter some string: ');
read(str1);
writeln('Pos about? (1-',length(str1),')');
read(pos);
pos:=abs(pos);
if (pos<=length(str1)) and (str1[pos] in geng) then
writeln ('vowel small case!')
else
writeln('something wrong... bye!');
End.
Последний раз редактировалось TRX.new; 12.05.2010 в 22:11..
|
|
|