Задача на сумму остатков от деления

@xersin · Регистрация: 29.11.2014

Студворк — интернет-сервис помощи студентам

Ввести N чисел: x1 x2 x3, ( N ≥ 3) и число k . Выяснить, правда ли, что сумма остатков
от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ?

@JokeR.BY · 15.12.2014, 00:57

Pascal

var
    i, n : Byte;
    x, k : Integer;
    sumOdd, sumEven : LongInt;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n >= 3);
    sumEven := 0; sumOdd := 0;
    Write('k='); ReadLn(k);
    for i := 1 to n do
    begin
        ReadLn(x);
        if Odd(x)
        then
            sumOdd := sumOdd + x mod k
        else
            sumEven := sumEven + x mod k;
    end;
    WriteLn(sumOdd > sumEven);
end.

@xersin 0 / 0 / 0 Регистрация: 29.11.2014 Сообщений: 12
		1
	Задача на сумму остатков от деления 14.12.2014, 23:14. Показов 2119. Ответов 1 Метки нет (Все метки) Ввести N чисел: x1 x2 x3, ( N ≥ 3) и число k . Выяснить, правда ли, что сумма остатков от деления нечётных x на k будет больше чем сумма остатков от деления чётных x на k ? 0

Опции темы

Задача на сумму остатков от деления

Решение