Информатика

Алгоритм по информатике, который делается в программе.
uses crt;
const
sogl = ['B'..'D','F'..'H','J'..'N','P'..'T','V'..'Z'];
glas = ['A','E','I','O','U'];
var
sgl,gl,i:byte;
stroka:string;

begin
clrscr;
writeln('Vvedite sroku'); readln(stroka);
for i:=1 to length(stroka) do begin
if upcase(stroka[i]) in glas then inc(gl) else
if upcase(stroka[i]) in sogl then inc(sgl);
end;
if gl>sgl then writeln('Glasnih bolshe soglasnih') else
if gl writeln('Glasnih i soglasnih porovnu');
readkey;
end.
информатика

похожие статьи:

• Лабораторная работа № 3 информатика и икт
• Практическая работа 1 информатика
• Практическая работа 1 информатика
• Шпаргалки по физике
• Вопросы по математике