1.Дано пятизначное число.Найдите разность двух чисел.Первое число равно сумме цифр исходного числа,стоящих на четных местах.Второе число равно сумме цифр,стоящих на нечетных местах. 2.Дано трехзначное число .Выведите на экран новое число,полученное из исходного путем перестановки цифр в обратном порядке. 3.Выведи на экран 8 раз фразу ''Loadind..." 4.Найдите сумму 1+3+5+7+...+37. 5.Найдите произведение 1*2*3*...*n 6.Дано трехзначное число.Найдите произведение их цифр. Python,7 класс

// PascalABC.NET 3.0, сборка 1073
const
  m=5;
  n=4;
  a:array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);
  b:array[1..n] of real=(8.1,3.2,-6.4,-3.5);
  k=3;
var
  i,j:integer;
  sk:real;
  s:array[1..m,1..n] of real;
begin
  Writeln('Массив S');
  for i:=1 to m do begin
    for j:=1 to n do begin
      s[i,j]:=a[i]*b[j];
      Write(s[i,j]:7:2)
    end;
    Writeln
  end;
  sk:=0;
  for i:=1 to m do sk:=sk+s[i,k];
  Writeln('Сумма элементов столбца ',k,' равна ',sk)
end.

Результат выполнения программы:
Массив S
  16.20   6.40 -12.80  -7.00
 -57.51 -22.72  45.44  24.85
  25.92  10.24 -20.48 -11.20
 -43.74 -17.28  34.56  18.90
  55.89  22.08 -44.16 -24.15
Сумма элементов столбца 3 равна 2.56

1) s будет равно 40.
for k:= 2 to 7 do - цикл будет выполнен 6 раз (2/3/4/5/6/7). Каждый раз переменная s будет уменьшаться на 10:
100-10=90 (1 цикл)
90-10=80 (2-й)
80-10=70 (3-й)
70-10=60 (4-й)
60-10=50 (5-й)
50-10=40 (6-й цикл, последний)
S=40

2) k будет равно 22.
For i:= 1 to 4 do - цикл будет выполнен 4 раза (1/2/3/4). Каждый раз переменная k будет присваивать значение 2*i+k:
2*1+2=4 (1-й цикл: 1 - это i, 2 - первоначальное значение k)
2*2+4=8 (2-й цикл: 2 - это очередная i, 4 - предыдущее значение k)
2*3+8=14 (3-й цикл)
2*4+14=22 (4-й цикл, последний)
k=22