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

                       

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

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

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


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
Оцените этот вопрос:  

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






iPhone XS и XS Max


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


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


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


Apple iPhone X


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


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


ТЭГИ

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

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


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