Информатика, опубликовано 2018-08-22 23:55:22 by Гость
Вывести из строки гласные буквы и их кол-вона языке Pascal,прошу помогите !!!!!
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на