Напишите эффективную программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество натуральных чисел,
10-11 класс
|
кратных числу 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.
Комментарий удален
Другие вопросы из категории
счисления. 3.Перевести число 100110010100_2 ввосьмеричную и шестнадцатеричную систему счисления. Помогите пожалуйста)
равно на выходе из фрагмента значение SUM?
SUM:=0; K :=M-1;
while K<N do
begin
for I(ай) := K-M+2 to K do SUM:=SUM+I;
K:=K+M;
end;
for I:=K-M+2 to N-1 do SUM:=SUM+I;
3)Программист Авсилий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 1 до 10000, не делящихся на 13 и 17. Чему равен пароль Васи?
4) Какой набор символов будет выведен в результате работы следующей программы?
function f(x:string; a:byte) :string;
begin
if a<=3 then
f:=copy(x, l, a)
else
f:=f(copy (x, 2, a), a-2;
end;
begin
writeln(f('abcdefghijklm',7));
end.
Читайте также
1) Дано четырехзначное число. Верно ли, что среди его цифр есть кратные трем
2) Даны три целых числа. Вывести среднее значение числа (средним числом назовем то, которое меньше наибольшего, но больше наименьшего числа)
3) Напишите эффективную программ, которая по двум данным натуральным числам х и у, не превосходящим 10000, подсчитывает количество натуральных чисел, заканчивающихся нулем, на отрезке [х,у] (включая концы отрезка).
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))