12.05.2010, 22:03
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от Shkiper2009
спасибо нашол
var
ch : Char ;
begin
ReadLn (ch) ;
case ch of
'n','N' : WriteLn ('Нет' );
'y','Y' : WriteLn ('Да')
end
end.
1. Создаешь массив с гласными строчными буквами
2. введеный символ в цикле сравниваешь с массивом
3. если найдено, выводишь да, если не найдено, выводишь нет.
P.s. Если голова на плечах. То в соседней теме (созданой тобой) есть код, который надо чуток переделать.
|
|
|