Question

Напишите эффективную программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество натуральных чисел, кратных числу a, на отрезке [a,b] (включая концы отрезка). Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1≤a≤b≤30000. Программа должна вывести одно число: количество натуральных чисел кратных числу a на отрезке [a,b]

Answer 1

var a,b,i,k:integer;
begin
readln(a);
readln(b);
k:=0;
if (a>b) or (b>30000) or (a<1) then writeln('данные введены некорректно') else begin
for i:=a to b do
if i mod a=0 then k:=k+1;
writeln(k);end;end.