середа, 6 січня 2016 р.

2014. Чего больше?

У Пети Костылькова день рождения и он принес конфеты, чтобы угостить одноклассников и, конечно же, свою любимую учительницу Снежану Денисовну. Чтобы сделать праздник более увлекательным, Снежана Денисовна предложила пронумеровать конфеты целыми числами между a и b (включая и сами эти числа) так, что каждому числу соответствовала ровно одна конфета.  Кроме того, она поведала детям, что те конфеты, номера которых не делятся на некоторое целое число n, наверняка невкусные, и поэтому их она заберет себе. Вкусные же конфеты, то есть такие, номера которые делятся на n, Снежана Денисовна оставит детям. Учащиеся с урока математики помнят, что число x называется делящимся на y, если существует хотя бы одно целое число k такое, что x=ky, но не знают соглашаться ли им на предложенный учительницей вариант или нет. Поэтому они просят вас посчитать каких чисел будет больше – делящихся на n или неделящихся.


Входные данные:  Выходные данные: Единственная строка входного потока содержит три целых числа a, b, n перечисленные через пробел (каждое число не превосходит по модулю1018).

Выведите в выходной поток слово"Divisibles”, если между a и b больше чисел делящихся на n, "Indivisibles", если больше неделящихся, или "Equal", если их одинаковое количество.

Пример входного файла (input.txt):
1 4 2  
Пример выходного файла (output.txt):

Equal   

program chego_bolshe;
var
A,B,N, I,uch,uchn : integer;
begin
  Assign (input,'input.txt');
  Reset (input);
  read (A, B,N);
  uch:=0;
  uchn:=0;
  for I:=A to B do
    if I mod N =0 then uchn:=uchn+1 else uch:=uch+1;

  Assign (output,'output.txt');
  Rewrite(output);
  if uchn>uch then write ('Divisibles') else
    if uchn<uch then write ('Indivisibles') else write ('Equal');
  Close (input);
  Close (output);
end.

Немає коментарів:

Дописати коментар