profile
Размещено 5 лет назад по предмету Информатика от ник200304

1.Дана строка символов (русская).Определить количество гласных букв в этой строке.
2.Дана строка символов.Определить каких символов больше гласных ил согласных.
3.Из заданного текста выбрать и вывести на экран те символы ,которые встречаются в нём ровно один раз.
в паскале
Решите пожалуйста !

  1. Ответ на вопрос
    Ответ на вопрос дан VenyK
    1)
    uses crt;
    var
    i,gl,sogl: integer;
    b: string;
    begin gl:=0;
    sogl:=0;
    write('Введите текст: ');
    read(b);
    for i:=1 to length(b) do 
    begin
    case b[i] of
    'а','А','о','О','у','У','е','Е','ё','Ё',
    'и','И','ы','Ы','э','Э','ю','Ю','я','Я': inc(gl);
    'й','ц','к','н','г' ,'ш', 'щ' ,'з','х',
    'ъ','ф','в','п','р' ,'л','д' ,'ж','ч',
    'с','м','т','ь','б','Й','Ц','К','Н','Г',
    'Ш', 'Щ' ,'З','Х','Ъ','Ф','В','П','Р' ,
    'Л','Д' ,'Ж','Ч','С','М','Т','Ь','Б': inc(sogl);
    end;
    end;
    writeln('Гласных - ',gl,' согласных - ',sogl);
    if gl>sogl then writeln('Гласных больше!');
    if sogl>gl then writeln('Согласных больше!');
    if gl=sogl then writeln('Кол-во гласных и согласных равно!');
    end.
    2)
    program alphbt;
     const  
     glasn=['а','е','и','о','у','ы','э','ю','я'];
     soglas=['б','в','г','д','ж','з','й','л','м',   'н','р','к','п','с','т','ф','х','ц','ч','ш','щ'];
      var
      st: string;  
     g,s,i:integer;  
    begin  
    write('Введите строку ');
      readln(st);
      g:=0; s:=0;
      for i:= 1 to length(st) do
      if st[i] in glasn then
      inc(g)
      else if st[i] in soglas then  
     inc(s);
      if g> s then writeln('Гласных больше')
    else if g< s then writeln('Согласных больше')
    else writeln('Согласн=гласн');  
    readln;
      end.
    3)
    var
      s: string;
      i, j, k: integer;
      begin   writeln('Введите строку:');
      readln(s);
      writeln('Символы, которые встречаются один раз:');
      for i := 1 to length(s) do
       begin  
       k := 0;  
       for j := 1 to length(s) do    
       if s[i] = s[j] then inc(k);  
       if k = 1 then write(s[i]:4)  
    end;
      readln end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
Никита081
Математика - 5 лет назад

Сколько здесь прямоугольников

Alinashastova
История - 6 лет назад

Какое управление было в древнейшем риме? как звали первого и последнего из царей рима?

diankayusupova3
Литература - 6 лет назад

Уроки французского ответе на вопрос : расскажите о герое по следующему примерному плану: 1.почему мальчик оказался в райцентре ? 2.как он чувствовал себя на новом месте? 3.почему он не убежал в деревню? 4.какие отношения сложились у него с товарищами? 5.почему он ввязался в игру за деньги? 6.как характеризуют его отношения с учительницей ? ответе на эти вопросы пожалуйста ! сочините сочинение пожалуйста

tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

pakhotnov228
Русский язык - 6 лет назад

Переделай союзное предложение в предложение с бессоюзной связью. 1. океан с гулом ходил за стеной чёрными горами, и вьюга крепко свистала в отяжелевших снастях, а пароход весь дрожал. 2. множество темноватых тучек, с неясно обрисованными краями, расползались по бледно-голубому небу, а довольно крепкий ветер мчался сухой непрерывной струёй, не разгоняя зноя 3. поезд ушёл быстро, и его огни скоро исчезли, а через минуту уже не было слышно шума

ggg3288
Русский язык - 6 лет назад

помогите прошу!перепиши предложения, расставляя недостающие знаки препинания. объясни, что соединяет союз и. если в предложении один союз и, то во втором выпадающем списке отметь «прочерк».пример:«я шёл пешком и,/поражённый прелестью природы/, часто останавливался».союз и соединяет однородные члены.ночь уже ложилась на горы (1) и туман сырой (2) и холодный начал бродить по ущельям.союз и соединяет:1) части сложного предложенияоднородные члены,2) однородные членычасти сложного предложения—.поэт — трубач зовущий войско в битву (1) и прежде всех идущий в битву сам (ю. янонис).союз и соединяет:1) части сложного предложенияоднородные члены,2) ​

Аккаунт удален
Физика - 6 лет назад

Вокруг прямого проводника с током (смотри рисунок) существует магнитное поле. определи направление линий этого магнитного поля в точках a и b.обрати внимание, что точки a и b находятся с разных сторон от проводника (точка a — снизу, а точка b — сверху). рисунок ниже выбери и отметь правильный ответ среди предложенных.1. в точке a — «от нас», в точке b — «к нам» 2. в точке a — «к нам», в точке b — «от нас» 3. в обеих точках «от нас»4. в обеих точках «к нам»контрольная работа по физике.прошу,не наугад важно

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.