4. Определите и выведите на экран сумму чисел от 50 до 500, которые делятся на 7 и 13 одновременно.

Если число должно делиться одновременно на 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.

Результат

1365