Решить две : 1. определить, является ли введенная строка палиндромом. 2. вводится имя файла (может и без расширения вывести имя файла с расширением exe

2:
Pascal

var
name_file: String;
begin
writeln('Введите имя файла');
readln(name_file);
writeln(name_file, '.exe');
readln;
end.

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

ответ: См. снимки экрана (код в объяснении)

Объяснение:

Первая программа:

from random import randint

def geo_mean(arr):

   m = 1

   for x in arr:

       m *= x

   res = m ** (1 / len(arr))

   return res

def even_numb(arr):

   sum = 0

   for x in arr:

       if not x % 2:

           sum += x

   return sum

   res = m ** (1 / len(arr))

   return res

arr = []

for i in range(50):

   arr.append(randint(1, 10))  # Геренрирование случайных чисел

print(arr, '\n')

print("G =", geo_mean(arr))  # Среднее геометрическое

if even_numb(arr) < 240:  # Сумма четных чисел

   print("Сумма четных элементов равна", even_numb(arr))

Вторая программа:

def numb_words(s):

   s = s.split()

   l = len(s)

   if l >= 3:

       return True

def numb_letters(a):

   return len(a) - a.count(' ')

a = input("Введите фразу: ")

if (numb_words(a)):

   if numb_letters(a) < 10:

       print("Хорошо")

   else:

       print("Не хорошо")