Cтрока текстового файла Numbers.txt представляет собой строку, состоящую из цифр от “0” до “9”. Напишите программу, заменяющую четыре цифры в этом файле символом ‘/’, начиная с позиции 3 заданной строки.

PascalABC.NET 3.7:

##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)

Пояснение:

Используется формула для нахождения суммы первых n членов арифметической прогрессии:   , где — первый член прогрессии, — последний член, —разность прогрессии.

sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.

задача 1.
x=int(input())
if x%2==0:  #если число четное
    x+=2       #следующее четное число больше заданного на 2
else:           #если число нечетное
    x+=1      #ближайшее четное число больше заданного на 1
print(x)

задача 2.
int(input())     #день недели первого числа текущего месяца
n=int(input()) #число текущего месяца
n=n%7-1       #синхронно перемещаемся по календарю ровно по неделям
m=(m+n)%7  #прибавляем кол-во дней от первого дня месяца
if m==0:         #номер воскресенья 7 дает остаток = 0 от деления на 7
    print(7)
else:
    print(m)
задача 3.
n=int(input())  #рубли
m=int(input()) #копейки
t=int(input())   #количество шоколадок
x=m+n*100    #перевести стоимость 1 шоколадки в копейки
x*=t                #столько потрачено денег на все шоколадки в копейках
n=x//100        #столько потрачено рублей
m=x%100      #столько потрачено копеек
print(n,end=' руб ')
print(m,end=' копеек')