3) Якими можна вставити у презентацію таблиці, діаграми, малюнки, організаційні діаграми​

Их можна добавить в вкладке "Вставка".

Зверху є де всі файли написано "Вставки " туди заходиш і вибираеш у мене так

Задание 15

num = int(input("Введите число: "))

num_help = num

num_len = 0

first_el = num

last_el = num % 10

while num_help:  # Определяем длину числа

   num_help //= 10

   num_len += 1

count = 0

while count != num_len - 1:  # while num_help > 0:

   first_el //= 10  # first_el = first_el // 10

   count += 1

num //= 10  # Выявляем середину

num %= 10 ** (num_len - 2)  # Возводим в степень

print(str(last_el) + str(num) + str(first_el))

Когда изучите строковый тип данных и срезы, можно будет сделать и так:

num = input("Введите число: ")

print(num[-1] + num[1:-1] + num[0])

Задание 16

num = int(input("Введите число: "))

div = num

mod = 0

last_el = num % 10

count = 0

num_help = num

num_len = 0

while num_help:  # Определяем длину числа

   num_help //= 10

   num_len += 1

while div:

   mod = div % 10

   div //= 10

   if mod == last_el:

       count += 1

if count == num_len:

   print("Цифры в числе одинаковые")

else:

   print("Цифры в числе разные")

Аналогично 1-ому:

num = input("Введите число: ")

if num == num[::-1]:

   print("Цифры в числе одинаковые")

else:

   print("Цифры в числе разные")

Uses Crt;
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,k,t:integer;
begin
  ClrScr;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(50);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    b[i]:=Random(50);
    Write(b[i],' ')
    end;
  Writeln;
  Write('k t='); Read(k,t);
  for i:=1 to n do begin
    if a[i]>t then a[i]:=a[i]+4;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if b[i]>10*k then b[i]:=b[i]+k;
    Write(b[i],' ')
    end;
  Readkey
end.

Тестовое решение:
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23