Помощь с программированием Паскаль Подскажите, как найти остаток от деления длинного числа более 20 цифр на 7?

Помощь с программированием Паскаль Подскажите, как найти остаток от деления длинного числа более 20 цифр на 7?

  • как и сказали выше - такие числа лучше представлять в виде строки.

    var
    strnum : string;
    i, n, carry : integer;
    begin
    strnum := '324587348123462834876945698439561293469213469465345';

    carry := 0;
    for i := 1 to length(strnum) do
    begin
    n := ord(strnum[ i ]) - ord('0'); {переводим символ в число}
    n := n + carry * 10; {если на предыдущем шаге был остаток, добавляем его к числу}
    write(n div 7); {просто для отладки, выводит результат деления}
    carry := n mod 7;
    end;
    writeln;
    writeln('остаток ', carry);

    end.

    http://pastebin.com/bM3E0mpK

    хотя более продуктивным вариантом было бы использование массива integer. но для данной задачи и так сойдет.

  • вместо числа (integer тама) используй строку

    а так столбиком получается) , ну заведи переменную, остаток небольшой полюбас будет) меньше 7)

  • пишешь тип данных лонгинт

    затем, что бы у тебя получился остаток при делении на 7 просто пишешь

    а присвоить б мод 7

    вывести б

    при этом у тебя высветится на экране остаток этого числа при делении на 7