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

Question

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

Comments

На каком языке?

---

Паскаль

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.