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

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

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

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

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

Question

Информатика

Эдит

24 марта, 18:24

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

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

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

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

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

+2

Ответы (1)

Знаете ответ?

Мартиниан · 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 Exp (100 * Ln (10))) 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.