Question

Найти и вывести на печать сумму всех натуральных чисел из промежутка от А до В, кратных 3 и 5 (А и В водятся с клавиатуры). 

Answer 1

program chisla;
var a,b,sum,i:integer;
begin
read(a);
read(b);
sum:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 = 0) then sum:=sum+i;
Writeln(sum);
end.