Предмет: Информатика,
автор: zarina1r
Вывести из строки гласные буквы и их кол-во
на языке Pascal,прошу помогите !!!!!
Ответы
Автор ответа:
0
Uses CRT;Var a:set of char; s:string; j:char; i,k:integer;begin writeln('Введите строку: ');readln(s);a:=[];k:=0;for i:=1 to length(s) do if s[i] in ['А','а','Е','е','Ё','ё','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'] then begin a:=a+[s[i]]; k:=k+1; end;write('Гласные буквы, присутствующие в строке: ');for j:='А' to 'я' do if j in a then write(j:2); writeln; write ('Количество гласных букв: ',k);end.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: История,
автор: katybern12345647
Предмет: Физика,
автор: bobrovaksenia50
Предмет: Геометрия,
автор: Ермунганд