1-т керек в) кесте мен сендерген
2-т 4-т 3-т (айырмашылығың) берем

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Write('0 1 ');
  var p:=1;
  for var i:=1 to 10 do begin
    p*=2;
    Write(i,' ',p,' ')
    end;
  Writeln
end.

Конечно, можно на каждом шаге вычислять два в нужной степени. Но это глуповатое занятие, поскольку мы видим: следующее значение степени равно удвоенному предыдущему. А начать надо, конечно, от единицы - нулевой степени двойки. Поэтому мы сразу выводим 0 и 1 и засылаем единицу в переменную р, которую потом будем удваивать.
Далее в цикле меняем i от 1 до 10 и для каждого i выводим его значение и через пробел удвоенное значение р.

print("Введите год:", end=' ')

year = int(input())

if (year % 100 > 0):

   century = year // 100 + 1

else:

   century = year // 100;

print("Этот год относится к", century, "-му столетию.")

Объяснение:

print("Введите год:", end=' ')  // Вывод текста в консоль

year = int(input())  // Создание + ввод целочисленной переменной

if (year % 100 > 0):  // Если остаток от деления year на 100 > 0

   century = year // 100 + 1  /// Переменная century = целочисленному делению year на 100 + 1

else:  // Иначе

   century = year // 100 /// Переменная century = целочисленному делению year на 100

print("Этот год относится к", century, "-му столетию.") // Вывод ответа в консоль

end=' ' не дает сделать перенос строки после print