Учеба
Разная информация
Ссылки на сторонние ресурсы
Партнеры

b9d1c2f1
Опрос
Помог ли вам этот сайт?


Топ новости


Информатика

Алгоритм по информатике, который делается в программе.
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.
информатика
Поиск
Партнеры