Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти количество чисел, кратных данному, в заданном диапазоне
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Сергио де ла Бриз
Есть задание: решить задачу с помощью програмы для програмирования "Паскаль". НО ни языка програмирования, ни елементарных вещей я не знаю
Итак условие!!!
Входные файлы:
В первом ряде входного файла записано три целых числа А, В, С. (-1000000<=A,B<=1000000), (1 меньше или равно С меньше или равно 1000) А,В - границы интервала на котором необходимо вычеслить количество чисел которые делаться на цело на число С. Все числа целые.
Выходные файлы:
Во входной файл необходимо записать одно число. Которое джолжно отображать количество чисел на интервале [A,B] которые делаться на С без остачи.
Lapp
Вот тебе полное решение. Надеюсь, ты с ним разберешься. Если что неясно - спрашивай, я объясню.
Только замечу: в условии ты говорил про _интервал_, но обозначал как отрезок (квадратные скобки). Это решение - для _отрезка_ (то есть, границы включены).
var
a,b,c,d: longint;
f: text;

begin
assign(f, 'in.txt');
reset(f);
readln(f,a,b,c);
close(f);
if a>b then begin
d:= a;
a:= b;
b:= d
end;
if a<1 then begin
d:= (1-a div c)*c;
a:= a+d;
b:= b+d
end;
assign(f,'out.txt');
rewrite(f);
writeln(f,b div c - (a-1) div c);
close(f)
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.