Question

Напишите программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество натуральных чисел, не кратных 3, на отрезке [a,b]. Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1≤a≤b≤30000. Проверять входные данные на корректность не нужно.Программа должна вывести одно число: количество натуральных чисел, не кратных 3, на отрезке [a,b].
Входные данные: 7 37
Выходные данные: 21
Пожалуйста!!!!

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.