Учеба
Разная информация
Ссылки на сторонние ресурсы
  • Хочешь сюда пиши админу
  • Навигация
    Партнеры

    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.
    информатика
    похожие статьи:
    Поиск
    Партнеры