Редактирование текста — (text editing (editing)): использование текстового процессора (редактора) для обработки текстов, включая перекомпоновку, изменение, дополнение, удаление и переформатирование текста.
Бу́фер обме́на (англ. clipboard) — промежуточное хранилище данных, предоставляемое программным обеспечением и предназначенное для переноса или копирования между приложениями или частями одного приложения через операции вырезать, скопировать, вставить.
Обработка информации - получение одних информационных объектов из других информационных объектов путем выполнения некоторых алгоритмов.
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.
Ryzen 7 3700x (20к рублей)
RTX 2070 (30к рублей)
32 ГБ озу (около 9к)
ссд на 1тб (10к)
бп fsp или be quiet (около 10 тысяч)
материнка на х570 чипсете (15к)
на оставшиеся деньги корпус
Объяснение: