Напишите реферат по 3 вопросам
20

1.дайте определение информационных технологий.

2.каковы основные цели и информационных технологий? что есть технические средства реализации информационных технологий?

3.что такое локальная сеть. каки виды локальных сетей
существуют.

162

179

Посмотреть ответы 1

Ответы на вопрос:

Лисанна2019

Информатика

4,4(55 оценок)

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.