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

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

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

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

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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.