Найти кол-во чисел, которые делятся на 12, в первой 1000 натуральных чисел.




( ABC Pascal)-Программа через которую делаю задания

8 класс

// Деление на 12 нацело

Program na12;

var i,n: integer;  

begin

n:=0;

for i:= 1 to 1000 do

if (i mod 12 = 0) then

begin

n:=n+1;

end;

writeln (n);

end.