Question

Заданы два натуральных числа N и K. Вычислить остаток от деления первого числа на второе. Входные данные:

Входной поток содержит два целых числа N и K (1 <= N <= 10^100, 1 <= K <= 10^9) записанные в двух отдельных строках.

Выходные данные:

В выходной поток выведите остаток от деления N на K.

Пример входного файла (input.txt): 239 16 Пример выходного файла (output.txt): 15

Answer 1

Program Task;
Var t: Text;
    N, K, M: LongInt;
Begin
    Assign(t, 'd:input.txt');
    Reset(t);
    While Not EOF(t) Do
    Begin
    Read(t, N);
    Read(t, K);
    End;
    If (N < 1) Or (N > Exp(100 * Ln(10))) Or (K < 1) Or (K > Exp(9 * Ln(10))) Then
    WriteLn('Input error!')
    Else
    Begin
        M := N Mod K;
        Assign(t, 'd:output.txt');
        Rewrite(t);
        Write(t, M);
        Close(t);
        Write('Done.');
    End;
    ReadLn;
End.