Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово

@Umnyasha · Регистрация: 21.05.2014

Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово и определить первая буква совпадает с заданной.
heeelp!please!

@Svager · 21.05.2014, 00:51

Pascal

uses crt;
var s:string;
    c:char;
begin
 write('Ââäèòå ñëîâî :');
  readln(s);
 if s[1] in ['a','e','y','i','o','u'] then
  writeln('Äà ñ ãëàñíîé ')
 else
  writeln('Íåò , íå ñ ãëàñíîé.');
 write('Ââåäèòå áóêâó :');
  readln(c);
 if s[1]=c then
  writeln('Ñîâïàäàåò .')
 else
  writeln('Íåò,íå ñîâïàäàåò.')
end.

@Umnyasha · 21.05.2014, 13:22 **[ТС]**

spasibo!!!udachi vam!)

@Umnyasha 0 / 0 / 0 Регистрация: 21.05.2014 Сообщений: 15
		1
	Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово 21.05.2014, 00:39. Показов 1340. Ответов 2 Метки нет (Все метки) Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово и определить первая буква совпадает с заданной. heeelp!please! 0

@Umnyasha 0 / 0 / 0 Регистрация: 21.05.2014 Сообщений: 15
	21.05.2014, 13:22 [ТС]	3
	spasibo!!!udachi vam!) 0

Опции темы

Составить программу, которая бы определяла с гласной ли буквы начинается введенное слово

Решение