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

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.

Существуют специальные таблицы кодировки символов, в которых каждому символу соответствует свой уникальный номер. на фото часть одной из таких таблиц. а ниже программка на паскале, иллюстрирующая работу этих функций: program aaa; //chr (x), ord (x), pred (x), succ (x), var x: integer; y,z: string;   begin //присвоим переменной у значение символа под номером 102: y: =chr(102); writeln('chr(102)= ',y); //присвоим переменной x номер позиции символа а в таблице кодировки windows ascii: x: =ord('f');   writeln('ord(''f'')= ',x); //а теперь возьмем символ алфавита "ф":   x: =ord('ф'); //  writeln('ord(''ф'')= ',x); //теперь нам нужен символ, следующий, например, за символом ю: y: =succ('ю'); writeln('succ(''ю'')= ',y); //или символ, предществующий символу я: y: =pred('я'); writeln('pred(''я'')= ',y); end. результат работы программы: chr(102)= f ord('f')= 102 ord('ф')= 212 succ('ю')= я pred('я')= ю

Трехзначное число, записанное с цифр a,b,c имеет величину 100a+10b+c. если зачеркнуть (отбросить) старшую цифру, то получится число 10b+c. умножая на 6, получаем 6(10b+c)=60b+6c. и теперь можно составить уравнение 100a+10b+c=60b+6c 100a=50b+5c 100a=5(10b+c) 20a=10b+c a=(10b+c)/20  (1) рассмотрим соотношения между целочисленными a,b,c ( a ∈ [1; 9], b,c ∈ [0; 9] ), которые удовлетворяют уравнению (1). поскольку 10b кратно 10, то сумма 10b+с может оканчиваться нулем только если с=0. тогда (1) принимает вид a=10b/20 или a=b/2 тогда b - четное, т.е. принимает значения 2, 4, 6, 8. соответственно, a принимает значения 1, 2, 3, 4. теперь можно записать варианты чисел: 120, 240, 360, 480.