В заданном предложении определить, на гласную ли букву заканчивается предложение

@hojidor · Регистрация: 15.02.2014

Author24 — интернет-сервис помощи студентам

В заданном предложении определить, на гласную ли букву заканчивается предложение.

@Cyborg Drone · 09.04.2014, 05:14

Pascal

const glas: set of char = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
      zn: set of char = ['.', '!', '?', '''', '"'];
var s: string;
    i: integer;
begin
  write('Предложение: ');
  readln(s);
  i := length(s);
  while (i >= 1) and (s[i] in zn) do dec(i);
  if s[i] in glas
    then writeln('Предложение заканчивается на гласную букву.')
    else writeln('Предложение не заканчивается на гласную букву.');
  readln
end.

@hojidor 0 / 0 / 0 Регистрация: 15.02.2014 Сообщений: 33
		1
	В заданном предложении определить, на гласную ли букву заканчивается предложение 08.04.2014, 21:12. Показов 1434. Ответов 1 Метки нет (Все метки) В заданном предложении определить, на гласную ли букву заканчивается предложение. 0

	09.04.2014, 05:14

В заданном предложении определить, на гласную ли букву заканчивается предложение

Решение