10 мая, 06:21

Составить прогу в паскале которая с клавы вводит последовательность символов на латинице, считает кол-во гласных этой последовательности необходимо использовать процедуру ввода последовательности и функцию которая возвращает кол-во гласных

0
Ответы (1)
  1. 10 мая, 07:48
    0
    Так как на мой вопрос не было ответа, то примем, что количество вводимых с клавиатуры символов тоже вводится с клавиатуры.

    const

    maxn = 100; / / изменяйте по усмотрению

    type

    myarr = array [1 ... maxn] of char;

    var

    a: myarr;

    n: longint;

    procedure input (var a: myarr; n: longint);

    var

    i: longint;

    begin

    for i : = 1 to n do

    read (a[i]);

    end;

    function kolvo_gl (a: myarr; n: longint) : longint;

    var

    i, k: longint;

    begin

    k : = 0;

    for i : = 1 to n do

    case a[i] of

    'a', 'i', 'u', 'o', 'e': inc (k);

    end;

    kolvo_gl : = k;

    end;

    begin

    readln (n);

    input (a, n);

    writeln (kolvo_gl (a, n));

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составить прогу в паскале которая с клавы вводит последовательность символов на латинице, считает кол-во гласных этой последовательности ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Новые вопросы по информатике