Паскаль. Найти сумму натуральных чисел, которые делятся нацело на 15 в диапазоне от 3 до 3333

Question

Найти сумму натуральных чисел, которые делятся нацело на 15 в диапазоне от 3 до 3333

Роза · Accepted Answer

program one; 
 uses crt; 
 const n=15; m=3333; 
 var s, i: integer; 
 begin 
 s:=0; 
 for i:=3 to m do 
 if i mod 15=0 then s:=s+i; 
 writeln('Сумма всех натуральных чисел, делящихся на 15 от 3 до 3333 равна',s); 
 end. 
 
всё просто =D

Наталья Мазаева · Answer

Ответ. a1=15; d=15; an=3333; an=a1+d*(n-1); n=(an-a1)/d+1; n=(3333-15)/15+1=222; 
S222=(2*a1+d*(n-1))*0,5*n; S=(30+15*221)*111=371295;

Светлана Лисковая · Answer

Цикл от i=3 до 3333 
условие, если i/15=i/15(нацело) то 
b=b+1 
конец условия 
конец цикла 
не знаю как в паскале делить на цело, в бэсике просто вместо слеша обратный слеш 
 
cls 
for i=3 to 3333 
if i/15=i\15 then 
b=b+1 
end if 
next i 
print b 
это текст на бэйсике, думаю на паскале что-то аналогичное.