// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (k,c):=ReadInteger2('Укажите границы диапазона:'); for var i:=k to c do begin var (flag,j,r):=(True,2,Round(Sqrt(i))); while flag and (j<=r) do if i mod j = 0 then flag:=false else j+=1; if flag then Print(i) end end.
Если число должно делиться одновременно на 7 и 13, то оно должно делиться на произведение этих чисел, т.е. на 91. Первым таким числом будет 91 и с него нужно начинать перебор. На самом деле понятно, что следующее число будет равно 91+91, т.е. 91×2, за ним последует 91×3... и сумму легко найти без компьютера и программы. Что в очередной раз показывает, насколько составители заданий бездумно относятся к своему творчеству. Но... условие есть условие. Начнем с 91 и будем последовательно перебирать ВСЕ числа до 500.
var i,s:integer;
begin s:=0; for i:=91 to 500 do if i mod 91 = 0 then s:=s+i; Writeln(s) end.
a = int(input())
b = int(input())
Sum = 0
for i in range(a, b):
Sum += i
print(Sum)