Вслове геология все гласные буквы заменили на те, что идут в слове перед ними. какие буквы присутствуют в полученной последовательности букв? а)е б) о в) ю.

Буква е получится ггеллггя

Var n, i, d: integer; found: boolean; begin d: =1; found: =false; writeln('введите целое число больше единицы'); readln(n); if n mod 2 = 0 then d : = n div 2 else       begin       i: =(n div 2)-1;       while (found=false) and (i > 2) do             begin             if n mod i = 0 then begin found: =true; d: =i; end;             i: =i-1;             end;       end; if d=1 then writeln('введённое число оказалось простым') else writeln('наибольший целый делитель введённого числа равен ',d); end.

1. входные данные: в первой строке вводится целое положительное число , не превышающее 100. во второй строке ввести неотрицательных целых чисел , каждое из которых не превышает 255. выходные данные: в единственной строке выходного файла вывести произведение всех элементов массива с нечётным номером. пример ввода: 3 1 2 3 пример вывода: 3 писал на: pascalabc.net v.3.2, сборка 1325 (19.10.2016) исходный код решения находится в приложении №1. 2. входные данные: в первой строке вводится целое положительное число , не превышающее 100. во второй строке ввести неотрицательных целых чисел , каждое из которых не превышает 255. выходные данные: в единственной строке выходного файла вывести сумму всех элементов массива с чётным номером. пример ввода: 3 1 2 3 пример вывода: 2 писал на: pascalabc.net v.3.2, сборка 1325 (19.10.2016) исходный код решения находится в приложении №2.