Спрограммированием в паскале : напишите программу, которая считывает с клавиатуры 1) количество четных чисел 2)кол-во нечетных чисел 3)кол-во считанных букв 4)кол-во гласных 5)кол-во согласных

189

452

Посмотреть ответы 2

Ответы на вопрос:

Havedid

Информатика

4,6(70 оценок)

Program q1q; const ds=['а','е','и','о','у','ы','э','ю','я','а','е','и','о','у','ы','э','ю','я']; var i,r1: integer; s: string; begin readln(s); r1: =0; for i: =1 to length(s) do if s[i] in ds then inc(r1); writeln(r1); end. это про гласные, нет времени больше, простите.