Учеба
Разная информация
Наш выбор
Партнеры
  

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


Обмен WebMoney WMZ, WMR, WME, WMU, WMB.
Отдадите:
Получите:
{BJ_LINK}
Топ новости


Информатика

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