Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Найти количество чисел, кратных данному, в заданном диапазоне

Автор: Сергио де ла Бриз 7.11.2011 23:23

Есть задание: решить задачу с помощью програмы для програмирования "Паскаль". НО ни языка програмирования, ни елементарных вещей я не знаю
Итак условие!!!
Входные файлы:
В первом ряде входного файла записано три целых числа А, В, С. (-1000000<=A,B<=1000000), (1 меньше или равно С меньше или равно 1000) А,В - границы интервала на котором необходимо вычеслить количество чисел которые делаться на цело на число С. Все числа целые.
Выходные файлы:
Во входной файл необходимо записать одно число. Которое джолжно отображать количество чисел на интервале [A,B] которые делаться на С без остачи.

Автор: Lapp 8.11.2011 3:09

Вот тебе полное решение. Надеюсь, ты с ним разберешься. Если что неясно - спрашивай, я объясню.
Только замечу: в условии ты говорил про _интервал_, но обозначал как отрезок (квадратные скобки). Это решение - для _отрезка_ (то есть, границы включены).

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.