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

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.
информатика
Добавить комментарий
Ваше Имя:  
Ваш E-Mail:  
  • winkwinkedsmileam
    belayfeelfellowlaughing
    lollovenorecourse
    requestsadtonguewassat
    cryingwhatbullyangry

Код:
Кликните на изображение чтобы обновить код, если он неразборчив

Введите код: 

Поиск
Партнеры