В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Fighertik
Fighertik
18.06.2020 01:19 •  Информатика

написать имя ИЛЬЯ в Pydroid 3 с черепахи


написать имя ИЛЬЯ в Pydroid 3 с черепахи

Показать ответ
Ответ:
Anna18301
Anna18301
26.10.2020 19:10
Const
  gl = 'аеёиоуыэюя';

var
  s: string;
  f: array[1..10] of boolean;
  i, m: integer;

begin
  Write('Введите фразу: '); Readln(s);
  m := Pos(' ', s);
  if m = 0 then Writeln('В строке отсутствуют пробелы')
  else begin
    for i := 1 to 10 do f[i] := False;
    for i := m + 1 to length(s) do
      case s[i] of
        'А', 'а': f[1] := True;
        'Е', 'е': f[2] := True;
        'Ё', 'ё': f[3] := True;
        'И', 'и': f[4] := True;
        'О', 'о': f[5] := True;
        'У', 'у': f[6] := True;
        'Ы', 'ы': f[7] := True;
        'Э', 'э': f[8] := True;
        'Ю', 'ю': f[9] := True;
        'Я', 'я': f[10] := True
      end;
    Write('Найдены гласные: ');
    for i := 1 to 10 do
      if f[i] then Write(gl[i], ' ');
    Writeln
  end
end.

Тестовое решение:
Введите фразу: Это проверочная фраза "Мама мыла раму". Конец теста.
Найдены гласные: а е о у ы я

В Pascal.ABC можно написать и короче:
const
  gl = 'аеёиоуыэюя';

var
  s: string;
  f: array[1..10] of boolean;
  i, m, p: integer;

begin
  Write('Введите фразу: '); Readln(s);
  m := Pos(' ', s);
  if m = 0 then Writeln('В строке отсутствуют пробелы')
  else begin
    for i := 1 to 10 do f[i] := False;
    s := LowerCase(s); { перекодировать к нижнему регистру }
    for i := m + 1 to length(s) do
    begin
      p := Pos(s[i], gl);
      if p > 0 then f[p] := True
    end;
    Write('Найдены гласные: ');
    for i := 1 to 10 do
      if f[i] then Write(gl[i], ' ');
    Writeln
  end
end.
0,0(0 оценок)
Ответ:
Regardless777
Regardless777
06.07.2022 07:16
Редактирование текста — (text editing (editing)): использование текстового процессора (редактора) для обработки текстов, включая перекомпоновку, изменение, дополнение, удаление и переформатирование текста.

Бу́фер обме́на (англ. clipboard) — промежуточное хранилище данных, предоставляемое программным обеспечением и предназначенное для переноса или копирования между приложениями или частями одного приложения через операции вырезать, скопировать, вставить.

Обработка информации - получение одних информационных объектов из других информационных объектов путем выполнения некоторых алгоритмов.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота