Bводится последовательноcть cимволов, конец ввода точка. Oпределить количествo глaсных бyкв в пoследовательнoсти.
18720
Медицинский центр «Андреевские больницы - НЕБОЛИТ» в г. Королев
| | | | |

                         

Вопросы и Ответы

"ЗнайКак.ру"

Поиск по сайту


15.03.2015 17:11

Bводится последовательноcть cимволов, конец ввода точка. Oпределить количествo глaсных бyкв в пoследовательнoсти.

КОМПЬЮТЕР

Вернуться к вопросам

в паскале

program qwerty;
uses crt;
const
glasn = ('AaEeIiOoUuАаЕеЁёИиОоУуЫыЭэЮюЯя� 39;);

var i,j,sum_glasn:integer;
s:string;

begin
write('Введите символы: ');
readln(s);

for i:=1 to length(s) do
for j:=1 to length(glasn) do
if s[i] = glasn[j]
then sum_glasn:=sum_glasn+1;

writeln;
writeln('гласных в слове :',sum_glasn);
writeln;
end.

как обозначить конец ввода символов - точкой?
var
s:string:='';
c:char;
begin
repeat
read(c);
s:=s+c;
until c='.';
writeln(s);
writeln(length(s));
end.

вроде можно как-то так
Автор: Bumshakalaka
Голосов: 0 Общая оценка: 0
Оцените этот вопрос:  

Для того, что бы ответить на вопрос Вы должны зарегистрироваться на сайте ЗнайКак.ру






Талисман ЧМ-2018 года по футболу - Забивака!


Логотип ЧМ-2018 по футболу


Новая купюра номиналом 2000 рублей


Apple iPhone X


"Мисс Россия – 2017" Полина Попова


Samsung Galaxy S8


ВОПРОСЫ - ОТВЕТЫ


ТЭГИ

быстро волосы выбор выбрать выглядят год делать День деньги детей дети для дом дома домашних здоровье играть избавиться интернет интерьер использовать как костюм купить лето любовь мода найти научиться Новый одежда отдохнуть отдых отношения подарок подобрать правила правильно приготовить ребенок ребёнка ремонт руками самостоятельно самые своими сделать себя создать справиться стать стиль сшить тренды украсить условиях ухаживать уход Хэллоуин цветы

Не нашли ответа?
Спросите нас, как…


Письма читаем регулярно,
ищите ответы в соответствующей рубрике.