• Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные буквы.
    P.S. Решение в Pascal abc или напишите на листе, пришлите фото с решением, пожалуйста.

Ответы 5

  • Можете, пожалуйста, пояснить ещё кое-что? s-строка, gl-все гласные буквы. А что такое i и ps?
    • Автор:

      giselle
    • 6 лет назад
    • 0
  • И поясните ещё предпоследнюю строчку (перед end).
    • Автор:

      dulce88
    • 6 лет назад
    • 0
  • А, все, сам разобрался. Проверил в программе, всё работает. Спасибо!
    • Автор:

      jasper56
    • 6 лет назад
    • 0
  • Только "й" надо из гласных убрать, он согласный)
  • var s,gl: string;    i: integer;    ps: set of integer;begin  gl:='аеёийоуыэюя';   write('строка:  ');   readln(s);   ps:=[];   i:=2;   repeat     if pos(s[i],gl)>0 then ps:=ps+[i];     i:=i+2;   until i>length(s);   write('множество четных позиций с гласными:  ');   foreach i in ps do write(i,' ');end.    Результат работы:  строка:  Это строка для проверкимножество четных позиций с гласными:  20 18 10 8 14 
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years